Forum: Object-Pascal / Delphi-Language
Delphi
by DF.A,
30. Jul 2004
Hi
Sorry war grad kurz Weg.
Wenn ich den String einzelnd überprüfe kommt genau das raus was rauskommem müsste. So wie unten hattest du das doch gedacht oder?
while not EOF(F) do begin
inc(i);
ReadLn(F, s);
if i = 11 then begin
index := pos('17',s);
t := copy(s,index,5);
Forum: Object-Pascal / Delphi-Language
Delphi
by DF.A,
30. Jul 2004
Hallo ich möchhte überprüfen ob eine bestimmte Zeichenreihenfolge in einem String vorhanden ist. Ich lese Zeilen einzelnd aus ner Datei aus und überprüfe dann ob bestimmte Zeichen in dieser Reihe vorhanden sind.
Also ich mach das folgendermaßen:
if (pos('17', copy(s,0,40)) = 0) then begin
ShowMessage('17 kommt nicht in dieser Zeile oder an der Vorgegebenen Position vor');
...