Hallo nochmal. Der erste Parameter meiner Funktion ist ein String und erwartet den zubearbeitenden Inhalt. Der zweite Paramter ist ein TStrings-Objekt, den du z.B. die Eigenschaft Lines eines Memos übergeben kannst. Der dritte Parameter gibt an, wie viele Stellen die Zahlen haben, die du suchen möchtest, ist aber optional. Wenn der parameter weggelassen wird, ist standartmäßig 32 voreingestellt.
Aufrufen kannst du die Funktion z.B. so (ich gehe davon aus, dass du ein Tmemo namens Memo1 auf dem Form hast)
Delphi-Quellcode:
var
stringlist: TStringlist;
begin
stringlist := TStringlist.create;
stringlist.loadfromfile('test.txt');
memo1.lines.beginupdate;
findnumlen(stringlist.text,memo1.lines);
memo1.lines.endupdate;
stringlist.free;
end;