32-stellige zahlen aus txt oder memo auslesen

[o0o]

ok thx habe das rausgenommen aber es geht noch nicht es haengt noch daran:

[Error] Unit1.pas(69): Incompatible types: 'String' and 'TStrings'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

ich weiss du hast die loesung hingeschriebn nur ich peile ehrlichgesagt nicht wie ich beide parameter angeben soll(ohne es falsch zu machen)^^

o0o

[HalloDu]

Woher das incompatible Types kommt hab ich oben auch beschrieben. Hoffe es ist verständlich. :mrgreen:

[Namenloser]

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;