Delphi - čtení se souboru
Dobrý den.
Mam soubor, který potřebují načíst do StringListu.
Potřebují však, aby začal od 2 řádku a načítal se souboru po dvou řadicích a ukládal ty dva řádky do StringList do jednoho řádku oddělené nějakým separatorem.
myStrLst.Add(nactenyradek +'^'+ nactenyradek1);
AssignFile(myFile, 'mujsoubor');
Reset(myFile);
ReadLn(myFile,nactenyradek);
while not Eof(myFile) do
begin
ReadLn(myFile,nactenyradek);
if Eof(myFile)= true then Exit;
ReadLn(myFile,nactenyradek1);
myStrLst.Add(nactenyradek +'^'+ nactenyradek1);
end;
CloseFile(myFile);
Je to ok ale po načtení mi vyskočí toto.
eeee.png
Kde dělám chybu?
Jsi si jisty, ze ten index out of range je zpusobeny timto kodem? Podle mne k tomu dojde až později. Index ve stringlistu je cislovany od nuly a ty se podle mne snažíš natvrdo číst index 1.
Uvnitř cyklu si změň
na
Rozdíl je v tom, že tvůj Exit vyskočí úplně z procedury, zatímco break ukončí cyklus a korektně uzavře soubor, který máš za cyklem.
Tvoje tajne vyvojove prostredie urcite umoznuje aj debugging, tym si zistis ze kde mas problem a opravis si to. Robi to tak 10 z 10 vyvojarov, tak to skus aj ty.