Thema: Delphi Datei durchsuchen

Einzelnen Beitrag anzeigen

the_seed

Registriert seit: 31. Dez 2003
213 Beiträge
 
#1

Datei durchsuchen

  Alt 15. Okt 2009, 07:35
Hi, brauch eure hilfe ichhab folgende problemstellung

ich habe eine variable mit irgend einer nummer und möchte eine textdatei nach dieser nummer durchsuchen und dementsprechend diese zeile ausgeben.

zb.
nummer:= '123456'

Textdatei: doijweoidjd oweidj123456789dwd wedwe
dwedwedewdwed45613547dededwd ... usw

habe schon probiert mittels pos die position zu bestimmen funkt. aber leider nicht.

Delphi-Quellcode:
var suchstr,x,y:string;
    i : integer;
    q : Tstringlist:
begin

  suchstr:='458756';
   q := TStringlist.create.
   q.loadfromfile('daten.txt');

for i:= 0 to q.count-1 do begin

y:= pos(q.strings[i],suchstr);
   if y<>0 showmessage(q[y]);
end;
end;
habe einiges probiert und bisher wurden mir zwar positionen angeziegt aber nie die richtigen, bitte um hilfe wie ich das problem am besten löse
  Mit Zitat antworten Zitat