Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Herauslösen eines Strings im string

    Delphi
    by sx2008, 28. Feb 2014
  Anstatt immer nur mit Pos() und Delete() zu arbeiten würde ich besser eine Funktion einsetzen die spezieller auf die Aufgabe zugeschnitten ist:
  function StrToken(var S: string; Separator: Char): string; // kopiert aus der JCL
  var
  I: Integer;
  begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
  Result := Copy(S, 1, I - 1);
  Delete(S, 1, I);