Zahlen aus text suchen!

[sCrAPt]

Die eine Art währe alle Zahlen rauszunehmen, die andere alle Buchstaben. Mir gefällt letztere besser
Man könnte es so in etwa machen:

Delphi-Quellcode:

var
  zeile, zeichen: integer;
  temp: string;
begin
  for zeile := 0 to memo1.Lines.Count - 1 do
  begin
    temp := memo1.Lines[zeile];
    for zeichen := 1 to length(memo1.Lines[zeile]) do
      if not (temp[zeichen] in ['0'..'9']) then
        temp[zeichen] := '*';
    memo1.Lines[zeile] := stringreplace(temp, '*', '', [rfreplaceall]);
  end;

Jetzt nur noch ne simple Schleife die Alles zusammenzählt

http://og4all.de/s.jpg, sCrAPt