Entwickler-Ecke :: Thema anzeigen - Fehler beim compilieren!! Syntax???? [gelöst]

Akut-Programming - Do 21.08.03 13:07
Titel: Fehler beim compilieren!! Syntax???? [gelöst]

Hi Leuts, bins nochma!

Unzwar folgendes, bin grad dabei n kleen Dateibrowser zu proggn nur da steh ich jetzt grad vor n Problem. :eyes: Ich wollte ini Dateien verwenden um Einstellungen zu speichern. Jetzt hab ich mit Hilfe eines hier veröffentlichten Tutorial dies versucht zu verwirklichen. Nur bekomme ich beim Compilieren der Anwendung folgenden Fehler:

Zitat:

[Fehler] Unit2.pas(75): Record, Objekt oder Klassentyp erforderlich

Weiß da jemand wie ich ihn beheben kann? :roll:

Akut-Programming - Do 21.08.03 14:00

okay, dann hab ich hier mal n bissl code! Is die Unit, in der der Fehler auftritt.

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, IniFiles;

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.BitBtn1Click(Sender: TObject);
var pfad:string;
    ini:TIniFile;
begin
pfad:=ExtractFilePath(ParamStr(0));
if CheckBox1.Checked=True then
 begin
  try ini:=TIniFile.Create(pfad+'einstellungen.ini');
  ini.WriteInteger('einstellungen','LoadNotice',1);
  finally ini.free;
 end
  else
   try ini:=TIniFile.Create(pfad+'einstellungen.ini');
   ini.WriteInteger('einstellungen','LoadNotice',0);
   finally ini.free;

   if CheckBox2.Checked=True then
 begin
  try ini:=TIniFile.Create(pfad+'einstellungen.ini');
  ini.WriteInteger('einstellungen','WindowHeight',Form1.Height);
  ini.WriteInteger('einstellungen','WindowWidth',Form1.Width);
  finally ini.free;
 end 
  else
   try ini:=TIniFile.Create(pfad+'einstellungen.ini');
   ini.WriteInteger('einstellungen','WindowHeight',605);
   ini.WriteInteger('einstellungen','WindowWidth',853);
   finally ini.free;

   if CheckBox3.Checked=True then
 begin
  try ini:=TIniFile.Create(pfad+'einstellungen.ini');
  ini.WriteInteger('einstellungen','autostart',1);
  finally ini.free;
 end
  else
   try ini:=TIniFile.Create(pfad+'einstellungen.ini');
   ini.WriteInteger('einstellungen','autostart',0);
   finally ini.free;
   end;
Form2.Close;
end;
end. //-----------------------> Hier kommt der Fehler

Keldorn - Do 21.08.03 14:08

Hallo

wenn man den Code ein wenig einrückt, sieht man die Fehler

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

if CheckBox1.Checked=True then
  begin
    try
      ini:=TIniFile.Create(pfad+'einstellungen.ini');
      ini.WriteInteger('einstellungen','LoadNotice',1);
    finally
      ini.free;
    end; //fehlt bei dir
  end
 else
  ...

es heißt

Delphi-Quelltext

1:
2:
3:
4:
5:

try
  ...
finally
  ...
end;

bei dir fehlen ein paar ends. rück den code mal ein wenig anders ein und ergänze die fehlenden ends

Mfg Frank

Keldorn - Do 21.08.03 14:29

nee, ich mein das so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure buttonklick;
......
  pfad:=ExtractFilePath(ParamStr(0));
  ini:=TIniFile.Create(pfad+'einstellungen.ini');
  try
    if CheckBox1.Checked=True then
      ini.WriteInteger('einstellungen','LoadNotice',1)
     else
      ini.WriteInteger('einstellungen','LoadNotice',0);
    if CheckBox2.Checked=True then
      begin
        ini.WriteInteger('einstellungen','WindowHeight',Form1.Height);
        ini.WriteInteger('einstellungen','WindowWidth',Form1.Width);
      end
     else
      begin
        ini.WriteInteger('einstellungen','WindowHeight',605);
        ini.WriteInteger('einstellungen','WindowWidth',853);
      end;
    if CheckBox3.Checked=True then
      ini.WriteInteger('einstellungen','autostart',1)
     else
      ini.WriteInteger('einstellungen','autostart',0);
  finally
    ini.free;
  end;

ungetestet, nur dein code umkopiert
und das ganze geht noch kürzer:
statt

Delphi-Quelltext

1:
2:
3:
4:

    if CheckBox1.Checked=True then
      ini.WriteInteger('einstellungen','LoadNotice',1)
     else
      ini.WriteInteger('einstellungen','LoadNotice',0);

schreib mal:

Delphi-Quelltext

1:	ini.Writebool('einstellungen','LoadNotice',checkbox1.checked)

auslkesen entsprechend mit readbool

Keldorn - Do 21.08.03 14:46

Akut-Programming hat folgendes geschrieben:

Aber müsste ich bei der Sache nicht dann noch sagen, welchen Boolean er eintragen soll?

Quelltext

1:	ini.Writebool('einstellungen','LoadNotice',checkbox1.checked)

checkbox1.checked ist doch schon ein bool ;)

edit: genau

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!