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