Zahlen aus String Filtern

[reyka]

Moin moin, wünsche euch einen wunderschönen Sonntagmorgen!

Ich bin gerade beim Schreiben auf ein Problem gestoßen. (Bitte nicht hauen wenn es schon mal behandelt wurde, werde daraus nicht schlau).
Ich möchte ein Formular mit Edit-Feld, Button, und Label haben.
So...nun möchte ich in das Edit-Feld einen Text eingeben (z.B. Du hast 800 Euro und 20 Fische im Karton).
Das Programm soll nun die Zahl vor "Euro" in eine Variable schreiben und die Zahl vor "Fische" in eien andere Variable (heist das Variable oder Variabel?).

Wie kann ich den Text nach Zahlen durchsuchen, den Beginn und das Ende der Zahl herausfinden?

mfg reyka

:cheers:

[mkinzler]

Befinden sich mehrere Zahlen im String?

[reyka]

jap, siehe Beispiel satz

Zitat:

(z.B. Du hast 800 Euro und 20 Fische im Karton)

[toms]

Zitat:

Zitat von mkinzler

Befinden sich mehrere Zahlen im String?

Ich denke schon "Du hast 800 Euro und 20 Fische im Karton"

[Cyf]

Sind die Zahlen grundsätzlich durch Leerzeichen getrennt?
("Duhast12Eierundbackst2Kuchen")

[reyka]

immer getrennt

[DeddyH]

Sind das eigentlich freie Eingabetexte, die der User eingibt, oder kommen die Werte aus deinem Programm? Im letzten Fall ist IMO bereits der Ansatz falsch.

[reyka]

Zitat:

..nun möchte ich in das Edit-Feld einen Text eingeben

kommt vom User .

[Meflin]

Zitat:

Zitat von reyka

Wie kann ich den Text nach Zahlen durchsuchen, den Beginn und das Ende der Zahl herausfinden?

-> Regular Expressions sind dein Freund!

Eine hervorragende Seite dazu: http://www.regular-expressions.info/

[reyka]

:wiejetzt:

da versteh ich leider nur bahnhof :'(

[Cyf]

Ich hätte ja einfach vorgeschlagen mir ein dynamisches Array of Integer zu bauen und den Text (z.B. mit Pos) einfach immer bis zum nächsten Leerzeichen zu durchlaufen und zu schauen, ob da eine gültige Zahl steht.
Aber regular expressions kommen natürlich auf das selbe raus.

[inherited]

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;

[reyka]

@inherited

Super danke werd ich gleich mal ausprobieren.