🚀 go-pugleaf

notaras pisze:
> Kod:
> 
> program nos_text_mode;
> 
> 
> uses
> nos_types,crt,SysUtils;
> 
> var
> f:file of TConfig; //plik z danymi
> temp:TConfig;  //zmienna pomocnicza
> temp_boolean:boolean;
> temp_char:char;
> f2:longint;
> 
> 
> 
> BEGIN
> if FileExists('config.dat') then
>   begin
>     assign(f, 'config.dat');
>     reset(f);
>     read(f,temp);
>     close(f);
>     writeln('dane konfiguracyjne pomyslnie wczytane');
>     writeln('aaaaaaaa');
>   end;
>   writeln('bbbbbbbb');
> 
> END.
> 
> Program daje ciekawe wyniki:
> 
> dane konfiguracyjne pomyslnie wczytane
> aaaaaaaa
> bbbbbbbb
> An unhandled exception occurred at $08049761 :
>                                               EAccessViolation :
> Access violation
>   $08049761
>               $080566B5
>                         $080481C2  P$NOS_TEXT_MODE_finalize_implicit,
> of nos_text_mode.pas
>               $080572B2
>                         $08057485
> 
> nos_types zawiera:
> 
> TUser=record
>         id:string;
>       end;
> TConfig=record
>           ftp_user:string;
>           ftp_pass:string;
>           upload_ip:string;
>           download_url:string;
>           user:TUser;
>         end;
> 
> 
> Program kompiluje pod linuxem (ubuntu 8.10) poleceniem:
> ppc386  -gl nos_text_mode.pas
> 
> Co zrobic aby program konczyl sie normalnie?
Długi stringi w TConfig: Zamień ma shortstring albo array [...]of char/ 
Dlugie string to encje lifetime managed, czyli de facto pointery do 
instancji. ZApisujesz i czytasz pointery, a nie instancje i to jest 
przyczyna.