Delphi-Quellcode:
try
tmpline := txt[I];
tmpI:= StrToInt(Copy(tmpline,5,5));
tmpS:= Copy(tmpline],1,4);
tmpSX := tmpline[10];
if (tmpS = ' ') and (tmpSX = ' ') then
begin
CurrentDebNr:= tmpI;
end;
I:= I+1;
Continue;
except
//Continue;
end;
Ich hab das ganze jetzt mal so umgeändert, aber weiter helfen tut mir das leider auch nicht wirklich, weil er trotzdem nicht in die IF-Prozedur rein springt, wenn die Bedingungen erfüllt sind
@EWeiss: Danke für den Tipp. Bin aber noch nicht beim kürzen vom Code ^^
Tim
Ohne Arbeit gibt es kein Leben, denn das Leben besteht nur aus harter Arbeit
Also weile ich schon seit langem nicht mehr unter den Lebenden