String mit Trennzeichen in Array?

[marabu]

Hallo,

es werden übrigens zwei StringLists benötigt:

Delphi-Quellcode:

function GetField(lines: TStrings; lineIndex, fieldIndex: Integer): string;
begin
  with TStringList.Create do
  try
    if lineIndex < lines.Count
      then CommaText := lines[lineIndex]
      else Text := '';
    if fieldIndex < Count
      then Result := Strings[fieldIndex]
      else Result := '';
  finally
    Free;
  end;    
end;

Getippt und nicht getestet.

Freundliche Grüße