Avatar billede k0ppah Nybegynder
02. oktober 2003 - 04:21 Der er 9 kommentarer

Hmm hvad er der galkt her

procedure Thalflifekeygen.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('c:\windows\regedit\HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942\ergc');
if SaveTofile('c:\windows\regedit\HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942\ergc');) then
  ShowMessage('New key saved.')
else
  ShowMessage('Could not save the key.)';
end;


end

det her er de errors der er fundet

[Error] Unit1.pas(39): Undeclared identifier: 'SaveTofile'
[Error] Unit1.pas(39): 'THEN' expected but ';' found
[Error] Unit1.pas(48): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Avatar billede borrisholt Novice
02. oktober 2003 - 08:06 #1
Fordi SaveToFile ligger som en metode tpå TStrings
Avatar billede athlon-pascal Juniormester
02. oktober 2003 - 09:04 #2
Prøv det her:

procedure Thalflifekeygen.Button1Click(Sender: TObject);
begin
  if Memo1.Lines.SaveToFile('c:\windows\regedit\HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942\ergc') then
    ShowMessage('New key saved.')
  else
    ShowMessage('Could not save the key.)';
end;
Avatar billede athlon-pascal Juniormester
02. oktober 2003 - 09:07 #3
Nej, vent lidt. Du prøver at skrive til  registreringsdatabasen med SaveToFile?
Prøv at kigge i hjælpen efter TRegistry, det er den du skal bruge :-)
Avatar billede athlon-pascal Juniormester
02. oktober 2003 - 09:08 #4
Ellers kan du kigge på denne artikel: http://delphi.about.com/library/weekly/aa011299.htm
Avatar billede stefanfuglsang Juniormester
02. oktober 2003 - 10:51 #5
Du har et semikolon i if-sætningen
Avatar billede stefanfuglsang Juniormester
02. oktober 2003 - 10:52 #6
Det står der også i fejlmeddelelsen, linie 2  ;-)
Avatar billede stoney Nybegynder
02. oktober 2003 - 10:55 #7
else
    ShowMessage('Could not save the key.)';

skal være

else
    ShowMessage('Could not save the key.');

se ' sidst i linien.

Du skal stadig væk kigge på Tregistry

Stoney
Avatar billede baxos Nybegynder
02. oktober 2003 - 13:44 #8
Du kan heller ikke skrive if Memo1.Lines.SaveToFile('c:\windows\regedit\HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942\ergc') then


Der er ikke noget Boolean  altså  =true/false then
Avatar billede doc404 Novice
03. oktober 2003 - 00:48 #9
Ikke for noget men...

Du skal vist starte lidt forfra omkring Delphi og Windows programmerings teknik generelt...

Hvad er det du ønsker at kunne?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester