Pos, copy i bul głowy.

0

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.

0

Wybacz, że się czepiam, ale:
Pochwalony. Pisz<font color="red">ę</span> bo mnie już głowa boli. Wi<font color="red">ęc</span> pisz<font color="red">ę</span> procedur<font color="red">ę</span> do otwierania pliku opartego na kolumnach, od rana z tym walczę, z jaki<font color="red">ch</span>ś mi nieznanych przyczyn wykłada mi się ta procedura. Wartości są naliczane od drugiek linii w pliku, jeśli to coś pomoże.
No i sam tytuł: Pos, copy i b<font color="red">ó</span>l głowy. (Jak by co, to spojrzyj na fakt, że sam w poście napisałeś boli a nie buli...). Może jednak czasem warto użyć jakiegoś edytora tekstu ze sprawdzaniem pisowni, zanim się na forum pytanie zada...

0

Luzik, sprawdzialem z Wordem a ten tam wyprawie takie cuda.

0

until I = S.Count - 1;

raczej:

until I = S.Count - 2;

1 użytkowników online, w tym zalogowanych: 0, gości: 1