FPC/Lazarus-ban random SIGSEGV errorokat kapok a class-jaimra. Pedig jól néznek ki a Complier se szól, csak amikor futnia kéne akkor meghal. Mi lehet a probléma?

Az if-ekben vizsgált változók kapnak értéket valamikor a vizsgálat előtt?

Az ide bemásolt kódod nekem nem tűnik hibásnak, nem tudnál inkább egy rövid programot összedobni, ami hozza a hibát?

function INIT:boolean;

Begin

[...]

settings.load(modname + '\scripts\settings.cfg');

[...]

End;

A load ugye a TSettings osztályod konstruktora, a Settings változód gondolom TSettings típusú. Amikor létrehozod az objektumot nem valami ilyesminek kellene lenni a kódnak:

Settings:=TSettings.Load(modname + '\scripts\settings.cfg');

Örülök, hogy segítettem :). Nem tudom a másik módszerrel miért működött a kód, szerintem nem kellett volna neki.

Ha nem veszed zokon lenne még egy két javaslatom. Mivel a konfigurációs fájlban ilyen név érték párok vannak (width=600), így nem muszáj végig zongoráznod, mint egy szövegfájlt. Használhatsz StringListet ( [link] ), ami kezeli ezt (Names és Value property), vagy talán mégjobb ha a TIniFile ( [link] ) objektumot használod.

Kicsit átírtam a TSettings osztályodat, hogy a TIniFile segítségével lehessen beolvasni a cfg fájlodból adatot, illetve visszaírni is lehessen vele.

A cfg fájl nézzen ki így (lévén az ini fájlok valahogy így épülnek fel):

[Windows settigns]

width=600

height=800

posX=10

posY=10

caption=Testmod

[other]

fov=75

sensitivy=0.1

caption=Testmod

A TSettings osztályod pedig lehet ilyen:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, InifFiles;

type

TSettings=Class

private

fWidth: integer;

fHeight: integer;

fPosX: integer;

fPosY: integer;

fCaption: string;

fLoaded: boolean;

fFilePath: string;

procedure SetWidth(aWidth:integer);

procedure SetHeight(aHeight:integer);

procedure SetPosX(aPosX:integer);

procedure SetPosY(aPosY:integer);

procedure SetCaption(aCaption: string);

procedure SetFilePath(aFilePath:string);

public

constructor Create(FilePath:string);

constructor Create(aWidth, aHeight, aPosX,aPosY: integer; aCaption: string);

procedure SaveSettings(FilePath: string);

procedure SaveSettings();

property Width: integer read fWidth write SetWidth;

property Height: integer read fHeight write SetHeight;

property PosX: integer read fPosX write SetPosX;

property PosY: integer read fPosY write SetPosY;

property Caption: string read fCaption write SetCaption;

property FilePath: string read fFilePath write SetFilePath;

property IsLoaded: boolean read fLoaded;

end;

implementation

constructor TSettings.Create(aFilePath:string);

var

ConfigFile: TIniFile;

begin

fLoaded:=False;

if FileExists(aFilePath) then

begin

try

try

ConfigFile:=TIniFile.Create(aFilePath);

except

on EInOutError do writeln('File can not be open!');

end;

fFilePath:=aFilePath;

fWidth:=StrToInt(ConfigFile.ReadString('Windows settings','width','-1'));

fHeight:=StrToInt(ConfigFile.ReadString('Windows settings','height','-1'));

fPosX:=StrToInt(ConfigFile.ReadString('Windows settings','posX','-1'));

fPosY:=StrToInt(ConfigFile.ReadString('Windows settings','posY','-1'));

fCaption:=ConfigFile.ReadString('Windows settings','caption','Default');

fLoaded:=True;

finally

ConfigFile.Free;

end;

end;

end;

constructor TSettings.Create(aWidth, aHeight, aPosX, aPosY: integer; aCaption: string);

begin

fWidth:=aWidth;

fHeight:=aHeight;

fPosX:=aPosX;

fPosY:=aPosY;

fCaption:=aCaption;

fLoaded:=True;

end;

procedure TSettings.SaveSettings(aFilePath:string);

var

ConfigFile: TIniFile;

begin

try

try

ConfigFile:=TIniFile.Create(aFilePath);

except

on EInOutError do writeln('File can not be open!');

end;

ConfigFile.WriteString('Windows settings','width',IntToStr(Width));

ConfigFile.WriteString('Windows settings','height',IntToStr(Height));

ConfigFile.WriteString('Windows settings','posX',IntToStr(PosX));

ConfigFile.WriteString('Windows settings','posY',IntToStr(PosY));

ConfigFile.WriteString('Windows settings','caption',Caption);

finally

ConfigFile.Free;

end;

end;

procedure TSettings.SaveSettings();

begin

SaveSettings(fFilePath);

end;

procedure TSettings.SetWidth(aWidth:integer);

begin

if aWidth in [1..1920] then fWidth:=aWidth

else fWidth:=640;

end;

procedure TSettings.SetHeight(aHeight:integer);

begin

if aHeight in [1..1080] then fHeight:=aHeight

else fHeight:=480;

end;

procedure TSettings.SetPosX(aPosX:integer);

begin

if aPosX in [1..1920] then fPosX:=aPosX

else fPosX:=10;

end;

procedure TSettings.SetPosY(aPosY:integer);

begin

if aPosY in [1..1080] then fPosY:=aPosY

else fPosY:=10;

end;

procedure TSettings.SetCaption(aCaption: string);

begin

fCaption:=aCaption;

end;

procedure TSettings.SetFilePath(aFilePath:string);

begin

fFilePath:=aFilePath;

end;

end.

És amikor a főprogramodból hívod valami ilyesmi lesz:

Settings:=TSettings.Create(modname + '\scripts\settings.cfg');

InitOpenglwindow(Settings.Width, Settings.Height, Settings.PosX, Settings.PosY, Settings.Caption);

A kódot nem teszteltem le, így hibák lehetnek benne!

:). Közel sem vagyok profi. A kód, amit az előző hozzászólásomban küldtem, több sebből vérzik. Csak hobbi szinten szoktam "bohóckodni" Lazarussal, Free Pascallal, szakmám szerint könyvtáros vagyok. Persze az igaz, hogy nem mostanában kezdtem foglalkozni a Pascal nyelv megismerésével.

Ha írsz egy programot, akkor olyan bemeneti adatod ne legyen, amit előre nem lehet tudni. Ha pedig lehet tudni, akkor már nem ismeretlen, így tehát lehet hozzá változót rendelni és így olyanra csinálhatod az osztályt, amilyenre kell.