подскажыте плз что за косяк в цикле (и ваще я так делаю или нет? >__> )
плюс интересная штука в последней строке переменную f почемуто принимает за стринг, хотя везде описал как буль
Код
Output.Text:='';
f:=false;
repeat
if BaseField.Text[i]<>' ' then Str:=Str+BaseField.Text[i]
else
begin
if BaseField.Text=Str then
begin
f:=true;
repeat
Output.Text:=Output.Text+BaseField.Text[i];
inc(i);
until BaseField.Text[i]=' ';
Str:=''
end;
end;
inc(i);
until BaseField.Text[i]=''{ or f=true};
f:=false;
repeat
if BaseField.Text[i]<>' ' then Str:=Str+BaseField.Text[i]
else
begin
if BaseField.Text=Str then
begin
f:=true;
repeat
Output.Text:=Output.Text+BaseField.Text[i];
inc(i);
until BaseField.Text[i]=' ';
Str:=''
end;
end;
inc(i);
until BaseField.Text[i]=''{ or f=true};
Сообщение отредактировано: kr3v3tkus -