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