[Admin]

Сообщение от NumLock

Код:

var
  LStrings: TStrings;
  S: String;
begin
  LStrings:=TStringList.Create;
  try
    LStrings.Delimiter:=' ';
    LStrings.DelimitedText:=Edit1.Text;
    S:='';
    while LStrings.Count>0 do
    begin
      S:=S+' '+LStrings[LStrings.Count-1];
      LStrings.Delete(LStrings.Count-1);
    end;
    Edit2.Text:=Trim(S);  
  finally
    LStrings.Free;
  end;
end;

Действительно, что-то не нравится Касперскому, не дает скомпилить, хотя что там может быть не понятно.