Strings laden

[marabu]

Noch ein Ansatz:

Delphi-Quellcode:

function ParseStr(var s: string; delimiters: string; purge: boolean): 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 AddLines(s: TStrings; line: string; delimiter: char);
begin
  while line <> '' do
    s.Add(ParseStr(line, delimiter, true));
end;

Deine Zeilen musst du der Prozedur AddLines() übergeben:

AddLines(ListBox.Items, DeineZeilenVariable, '='); Das Trennzeichen darf im hinten angehängten Text allerdings nicht vorkommen.

Grüße vom marabu