Jeg har et problem her.
Når der Compiled er der ingen fejl.
Men når kodeeksemplet nedenfor køres fremkommer der en fejlmeddelse:
Se
www.sunwind.dk/ErrorafINIfile.jpg
Men syndtes ikke denne meddelse fortæller hvor henne fejlen er.
Derfor håber du vil hjælpe mig.
Ret venligst i koderne, det syndtes jeg giver det bedst resultat.
Det væsentelig i koderne:
public
{ Public declarations }
end;
var
fmFontOpsestning: TfmFontOpsestning;
FontName : string;
FontSize : Integer;
FontColor : string;
Bibliotek, Kl, Dato : string;
MyINI: TINIFile; // TINIFile objektet
PathToINIFile: String;
implementation
{$R *.dfm}
procedure TfmFontOpsestning.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TfmFontOpsestning.FormCreate(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit4.Clear;
PathToINIFile :=
IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'Settings.ini';
MyINI := TINIFile.Create(PathToINIFile);
If Not FileExists(MyINI.FileName) Then
Begin
MessageDlg( 'Kan ikke finde opsætningsfilen: ' + #13#10 +
UpperCase( MyINI.FileName ) + #13#10
+'Oprette nu:'+ #13#10
+UpperCase(MyINI.FileName ),
mtError, [mbOk], 0 );
//IniFileError := True;
end;
MyINI.WriteString('Sektionen', 'Bibliotek', MyINI.FileName);
{Ved opstart af programmet hentes følgende:}
{FontName, FontSize, FontStyle og FontColor}
Edit1.Text := MyINI.ReadString('Sektionen', 'FontName', 'Ikke fundet');
Edit1.Font.Name:= Edit1.Text;
{Font Size}
Edit2.Text:= IntToStr(MyINI.ReadInteger('Sektionen', 'FontSize', 10));
Edit2.Font.Size:= Strtoint(Edit2.Text);
{Font Color}
Edit4.Text := MyINI.ReadString('Sektionen', 'FontColor', 'Ikke fundet');
Edit4.Font.Color:= StringToColor(Edit4.Text);
{Læser fra ini'en. 'Ikke fundet' kommer kun hvis der ikke er nogen værdi
i undernøglen}
Label4.Caption := 'Af: '+ MyINI.ReadString('Sektionen', 'Bibliotek',
'Værdi mangler');
Label5.Caption:= 'Sidst opdateret den: ' + MyINI.ReadString('Sektionen',
'Dato','');
Label6.Caption:= 'Kl: ' + MyINI.ReadString('Sektionen', 'Kl','');
MyINI.Free;
end;
procedure TfmFontOpsestning.btnFontDialogClick(Sender: TObject);
begin
FontDialog1.Execute;
FontName := FontDialog1.Font.Name;
FontSize := FontDialog1.Font.Size;
FontColor := ColorToString(FontDialog1.Font.Color);
MyINI := TINIFile.Create(PathToINIFile);
{Font Name}
MyINI.WriteString('Sektionen', 'FontName', FontName);
Edit1.Text := MyINI.ReadString('Sektionen', 'FontName', 'Ikke fundet');
Edit1.Font.Name:= Edit1.Text;
{Font Size}
MyINI.WriteInteger('Sektionen', 'FontSize', FontSize);
Edit2.Text:= IntToStr(MyINI.ReadInteger('Sektionen', 'FontSize', 10));
Edit2.Font.Size:= Strtoint(Edit2.Text);
{Font Color}
MyINI.WriteString('Sektionen', 'FontColor', FontColor );
Edit4.Text := MyINI.ReadString('Sektionen', 'FontColor', 'Ikke fundet');
Edit4.Font.Color:= StringToColor(Edit4.Text);
MyINI.WriteBool('Sektionen', 'Bibliotek', True);
MyINI.WriteString('Sektionen','Bibliotek',MyINI.FileName);
MyINI.WriteDate('Sektionen', 'Dato', Date);
MyINI.WriteTime('Sektionen', 'Kl', time);
MyINI.Free;
end;
Med venlig hilsen
Monie Jacobsen
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"