Delimiter Problem

[reyka]

Bei

Delphi-Quellcode:

var sl: TStringList; i, k: Integer;
[...]
  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';
    sl.DelimitedText := 'Du hast 800 Euro und 20 Fische im Karton';
    for i := 0 to sl.count - 1 do
    begin
      if TryStrToInt(sl[i], k) then
      begin
        //Ich bin eine Zahl
      end else begin
        //Ich bin keine Zahl
      end;
    end;
  finally
    sl.Free;
  end;
end;

zeigt er mir an [Fehler] Unit1.pas(31): Undefinierter Bezeichner: 'Delimiter'

muss ich noch was in Uses schreiben? Wenn ja was?
Oder geht das in Delphi 4 überhaupt nicht?

[DeddyH]

Delphi 4? Dann wohl eher nicht.

[reyka]

kann man da irgendwas anderes nutzen?
bzw. umgehen -> nicht allzu kompliziert

[DeddyH]

Such mal in der CodeLib nach "Explode", das dürfte in etwa auch das tun, was Du brauchst. Evtl. gibt es davon mehrere Varianten, Du bräuchtest dann die, wo kein Delimiter benutzt wird.

[mkinzler]

Such mal nach Explode() in der CL oder verwende einen neuere Delphiversion
Es würde notfalls auch duch Pos(Ex) möglich sein

[reyka]

also das mit Explode()
da steig ich nicht durch irgendwie.

Ich will halt das mein String separiert wird :gruebel:, da ich die zahlen aus dem String in eine Variable kopieren möchte.

[mkinzler]

Explode zerlegt eineen String anhand von Trennzeichen

[Meflin]

Zitat:

Zitat von reyka

Ich will halt das mein String separiert wird :gruebel:, da ich die zahlen aus dem String in eine Variable kopieren möchte.

wie gesagt, Regular Expressions wären dein Freund und Helfer :zwinker:

Code:

[0-9]{1,*}

dürfte schon reichen, um alle Zahlen zu finden. wobei das jetzt ohne Gewähr ist, hab schon ewig nix mehr geregext ;)