Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Kommastellen löschen

    Delphi
    by sx2008, 26. Sep 2009
  Es geht doch nicht um Lines of Code sondern um einen Blick über den Tellerrand.
  Sollte man StrToken() in einem Programm mehr als einmal einsetzen können, dann hat es sich doch schon gelohnt.
  Der Programmcode wird lesbarer und verständlicher.
  StrToken liefert pro Aufruf ein Token zurück und verkürzt den Orginalstring um dieses:
  s := 'Audi,Mazda,BMW,Opel';
  writeln(StrToken(s,',')); //...
• Forum: Object-Pascal / Delphi-Language

  Re: Kommastellen löschen

    Delphi
    by sx2008, 25. Sep 2009
  Es gibt da die wunderhübsche Funktion StrToken (aus der JCL):
  function StrToken(var S: string; Separator: Char): string;
  var
  I: Integer;
  begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
  Result := Copy(S, 1, I - 1);
  Delete(S, 1, I);