Zahlen aus text suchen!

[Sharky]

Zitat von sCrAPt:

Ich verstehe Val() nicht ganz... Was macht das? Ich habs mit in der OH angesehen, aber irgendwie versteh ich das mit dem 2ten Parameter nicht ...

Val () Versucht einen String in einen Zahl zu wandeln. Wenn die Umwandlung erfolgreich war steht in "code" 0. Ansonsten die Position im String bei der die Umwandlung gescheitert ist.

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  str : String;
  wert : Integer;
  code : Integer;
begin
  str := '1548';
  Val (str,wert,code); // Code ist 0

  str := 'A1548';
  Val (str,wert,code);  // Code ist 1

  str := '15c48';
  Val (str,wert,code);  // Code ist 3

  str := '1548w';
  Val (str,wert,code);  // Code ist 5
end;