Memo.lines nach StringGrid kopieren

[marabu]

Hallo lucius,

du wirst vielleicht da und dort noch Anpassungen vornehmen müssen:

Delphi-Quellcode:

function ParseStr(var s: string; delimiters: string; purge: boolean = true): string;
var
  i: integer;
begin
  i := 0;
  while (i < Length(s)) and (Pos(s[Succ(i)], delimiters) = 0) do
    Inc(i);
  Result := Copy(s, 1, i);
  Delete(s, 1, i + Ord(purge));
end;

procedure ExtractFields(s, delimiters: string; sl: TStrings);
var
  t: string;
begin
  sl.Clear;
  while s <> '' do begin
    t := ParseStr(s, delimiters, true);
    if t <> '' then
      sl.Add(t);
  end;
end;

procedure TDemoForm.CopyButtonClick(Sender: TObject);
var
  i: integer;
begin
  StringGrid.RowCount := Memo.Lines.Count;
  for i := 0 to Pred(Memo.Lines.Count) do
    ExtractFields(Memo.Lines[i], ';', StringGrid.Rows[i]);
end;

Grüße vom marabu