Warum nimmst du überhaupt ein Record?
für was gibts Objecte?
Beispiel:
Delphi-Quellcode:
Unit Unit1;
Interface
Uses SysUtils, IniFiles;
Type
TSettings_Base =
Class
Private
{ Private-Deklarationen }
FiCo: Integer;
FiFk: Integer;
FFZa1:
String;
FFZa2:
String;
Public
{ Public-Deklarationen }
Function Load: Boolean;
Virtual;
Abstract;
Property FZa1:
String Read FFZa1;
Property FZa2:
String Read FFZa2;
Property iFk: Integer
Read FiFk;
Property iCo: Integer
Read FiCo;
End;
TSettings_Ini =
Class( TSettings_Base )
Public
{ Public-Deklarationen }
Function LoadSettings: Boolean;
End;
Implementation
Function TSettings_Ini.LoadSettings: Boolean;
Var InI: TIniFile;
Begin
Result := False;
InI :=
Nil;
Try
Try
Ini := TIniFile.Create( ExtractFilePath( Paramstr( 0 ) ) + '
maxes.ini' );
FFZa1 := InI.ReadString( '
Zahlen', '
Zahl1', '
10' );
FFZa2 := InI.ReadString( '
Zahlen', '
Zahl2', '
10' );
FiFk := InI.ReadInteger( '
Funktionen', '
Funktion1', 0 );
FiCo := InI.ReadInteger( '
Funktionen', '
Funktion2', 0 );
Result := True;
Finally
If Assigned( InI )
Then FreeAndNil( InI );
End;
Except
On Error:
Exception Do Begin
Error.
Message := '
LoadSettings - Error:'#13#10 + Error.
Message;
Raise;
End;
End;
End;
End.
So in der Art würd ich das machen...
Es lebe die Objectorientiertheit
Bye