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.

zusammenfalten · markieren

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

Schau Dir die Reihenfolge der Parameter an
Arbeite mit try-finally
Denke dran, dass das Ergebnis von Pos die Position innerhalb der Zeile ist; nicht innerhalb der Datei

Zitat von worker:

Schau Dir die Reihenfolge der Parameter an
Arbeite mit try-finally
Denke dran, dass das Ergebnis von Pos die Position innerhalb der Zeile ist; nicht innerhalb der Datei

oh verdammt dann wird mir einiges klar... also so

zusammenfalten · markieren

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

try
y:= pos(q.strings[i],suchstr);
 finally
   showmessage(q[i]);
end;

 
end;

Zitat von the_seed:

oh verdammt dann wird mir einiges klar

Das bezweifle ich, denn

Zitat von the_seed:

... also so [...]

ist noch immer falsch.

1. Du suchst noch immer nach der Position des Textes aus Zeile x innerhalb von suchstr
2. Der try-finally-Block sollte nicht zur Ausgabe Deines Results dienen, sondern zur Absicherung vor Speicherfressern; dort gibst Du Deine erzeugte Stringliste wieder frei.

Hallo the_seed

Du solltest mal dein Pos umstellen....

Alt: y:= pos(q.strings[i],suchstr);
Neu: y:= pos(suchstr,q.strings[i]);

Gruß
gemms

Zitat von gemms:

Du solltest mal dein Pos umstellen....

Alt: y:= pos(q.strings[i],suchstr);
Neu: y:= pos(suchstr,q.strings[i]);

Ja, kau ihm noch schön alles vor - pädagogisch sehr wertvoll; und vor allem bleibt es so gut im Gedächtnis
Meine Hinweise sollten ihn dahin lenken, mal selber in die Hilfe zu schauen