Strings trennen

[angos]

Grüße,


ne du machst keinen Fehler, in der Funktion wurde lediglich eine Kleinigkeit vergessen. Hab ich mal schnell korrigiert:

Delphi-Quellcode:

function TForm1.GetTextElement(ElementNo: Integer; Seperator,
  Text: String): String;
var
  elementEnd, i: Integer;
begin
  for i := 1 to ElementNo do
  begin
    elementEnd := pos(Seperator, Text);
    if elementEnd > 0 then
    begin
      if i = ElementNo then
        Result := Copy(Text, 1, elementEnd - 1)
      else
        Text := Copy(Text, elementEnd + 1, Length(Text) - elementEnd);
    end
    else if i = ElementNo then
      Result := Text;
  end;
end;

EDIT: Man kann natürlcih auch auf RefStr komplett verzichten und dafür direkt auf MeinText zugreifen

EDIT2: Funktion klein gemacht und COde-formatierung vorgenommen