Aufteilen eines Strings in mehrere Zeilen (Leerzeichen)

[Maja Jessica]

Hi,

oder von Hand (jedenfalls so in etwa):

Delphi-Quellcode:

procedure TForm1.ScanLine(zeile : String);
var i : integer;
    neu : string;
begin
  Memo1.Clear;
  neu := '';
  for i := 1 to length(zeile) do
  begin
    if zeile[i] <> ' ' then neu := neu + zeile[i];
    if (i > 1) AND (zeile[i] = ' ') AND (zeile[i-1] <> ' ') OR (i = length(zeile)) then
      begin
      Memo1.Lines.Add(neu);
      neu := '';
    end;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Scanline(edit1.Text);
end;

Alle Angaben ohne Gewehr

MJ