Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: 4 Werte einer IP in 4 variablen

    Delphi
    by Tpercon, 29. Aug 2003
  Hier mal ne Funktion zum Teilen von Text:
  procedure TCheckCompObject.SplitString(Str: string; Separator: Char; var ts: TStringList);
  begin
  try
  ts.Clear;
  while AnsiPos(Separator, Str) > 0 do begin
  ts.Add(trim(Copy(Str, 1, AnsiPos(Separator, Str) - 1)));
  Str := Copy(Str, AnsiPos(Separator, Str) + 1, Length(Str));
  end;
  ts.Add(trim(Str));