Forum: Datenbanken
Delphi
by m-werk,
14. Jul 2002
Hi, Danke, jetzt funktioniert alles.
Ich wollte das mit dem IntToStr anstelle von SysLastError setzen, (hab wieder mal nicht mitgedacht.
Ich hoffe, dass das jetzt richtig ist, denn ich mußte nach dem IntToStr(GetLastError)) 2 klammern setzen.
Forum: Datenbanken
Delphi
by m-werk,
14. Jul 2002
Hi, ich komm nicht dahinter:
So sieht mein Code jetzt aus:
procedure TDM.DataModuleCreate(Sender: TObject);
var REG:TRegistry;
a:string;
begin
REG:=Tregistry.create;
try
REG.RootKey := HKEY_CURRENT_USER;
Forum: Datenbanken
Delphi
by m-werk,
14. Jul 2002
Hi, ok, das inherited hab ich jetzt von meinem Code weggenommen.
Das mit dem self.Handle war vorher von mir ein dreher. Ich habe ja eh self.Handle in meinem Code stehen. Aber da kommt ne meldung wie oben beschrieben. Muß ich vielleicht in den Uses Berech noch was einbinden oder irgendwo anders?
Forum: Datenbanken
Delphi
by m-werk,
14. Jul 2002
Hi, ich danke dir, ich hab nur noch ein kleines problem mit deinem Code.
begin
inherited Create;
REG:=Tregistry.create;
......
Wenn ich das Programm compiliere, dann kommt bei der Zeile 'inherited Create;'
folgende Fehlermeldung:
Forum: Datenbanken
Delphi
by m-werk,
13. Jul 2002
Hi, ich danke dir, es funktioniert jetzt.
Ich bin nur mit den letzten 3 Punkten nicht ganz klar gekommen.
Was und wie meinst du dass genau?
Forum: Datenbanken
Delphi
by m-werk,
13. Jul 2002
Hi Leute, ich habe in meinem Setup den Path der Datenbank (man soll die Datenbank speichern können, wo man will) in die Registry geschrieben, und nun kann das Programm die Datenbank nicht mehr finden,
Ich hab jetzt folgenden Code drin:
procedure TDM.DataModuleCreate(Sender: TObject);
var REG:TRegistry;
a:string;
begin
REG:=Tregistry.create;
try