Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Okt 2005
procedure TMainForm.Button2Click(Sender: TObject);
var
i: integer;
begin
StringGrid1.RowCount := Succ(Memo1.Lines.Count);
for i := 0 to Pred(Memo1.Lines.Count) do
ExtractFields2(Memo1.Lines, ';', StringGrid1.Rows);
end;
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Okt 2005
Hallo lucius,
du wirst vielleicht da und dort noch Anpassungen vornehmen müssen:
function ParseStr(var s: string; delimiters: string; purge: boolean = true): string;
var
i: integer;
begin
i := 0;