Pochwalony. Pisze, bo mnie już głowa boli. Wiedz pisze procedura do otwierania pliku opartego na kolumnach, od rana z tym walczę, z jakiś mi nieznanych przyczyn wykłada mi się ta procedura. Wartości są naliczane od drugiej linii w pliku, jeśli to coś pomoże.
Var
I, G : Integer;
Temp : String;
Begin
I := 0;
Repeat
Inc(I);
SetLength(Data.Items, S.Count - 1);
Temp := S.Strings[I];
G := Pos(TInfoPrefix, Temp);
Data.Items[I].ImagesIndex := StrToInt(Copy(Temp, 0, G - 1));
Delete(Temp, 1, G);
G := Pos(TInfoPrefix, Temp);
Data.Items[I].AlternativName := Copy(Temp, 0, G - 1); // No i wywala się tu [diabel]
Delete(Temp, 1, G);
G := Pos(TInfoPrefix, Temp);
Data.Items[I].FirstImage := Copy(Temp, 0, G - 1);
Delete(Temp, 1, G);
Data.Items[I].SecondImage := Temp;
Until I = S.Count - 1;
End;
Dostaje takie ślicznie wkurzający komunikat: Projekt HMenu.exe raise exception class EAccessViolation with message Access violation at adres blebleble In module HMenu.exe. Read of address blebleble. Process stopped. Uset Step or Run to continue. – Czyli standard.