Gem i programmet

"Gem i programmet"

Du kan ikke gemme i selve exe filen, du er nødt til at bruge en database, text fil, ini fil, registreringsdatabasen osv. til at gemme oplysningerne.

Jeg kan ikke selv finde ud af Delphi, så du må prøve google indtil videre

Fortæl lidt mere - typen af data, længden af de indtastede data (minimum og maximum) osv.

hvis det er data fra memo kan du gemme - hente data

//gemme data
Memo1.Lines.SaveToFile('c:\temp\test.txt');

//hente data
Memo1.Lines.LoadFromFile('c:\temp\test.txt');

hvis det er edit felter som du vil gemme - hente i en ini fil
husk uses "inifiles"

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;
  begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','edit1''edit2',(edit1.Text+edit2.text));
  end;

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit1.Text + edit2.Text := IniFile.readString('Settings','edit1'+'edit2','');
  end;
end.

ja det er editterne som skal gemmes i programmet og jeg har også prøvet hvad der står men jeg kan ikke få det til at virke

hvilken fejlmelding får du?

prøv igen her kan du gemme 3 edit
husk uses "inifiles"

//gem
procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','edit1',edit1.Text);
begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','edit2',edit2.Text);
begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','edit3',edit3.Text);
inifile.free
end;
end;
end;

//hent

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit1.Text := IniFile.readString('Settings','edit1','');
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit2.Text := IniFile.readString('Settings','edit2','');
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit3.Text := IniFile.readString('Settings','edit3','');
inifile.free;
end;
end;
end;

jeg har læst noget om at man kan gemme det hele ved hjælp af registry og at det hele skulle kunne gemmes jeg har været inde på udvikleren, men jeg kan heler ikke få et til at virke der kommer der to fejl
jeg få disse fejl frem når jeg skal køre programmet

[Error] Unit1.pas(43): Statement expected but 'PROCEDURE' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

prøv lige mit sidste eksempel med at gemme indhold fra 3 edit i en ini file, den virker perfekt....
iøvrigt....
vil du gemme i registry for andre ikke må kunne se de gemte data

stone..
Jeg håber virkelig blot der er gået noget copy and paste helt galt for dig???

den kommer med disse fejl
[Error] Unit1.pas(46): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas
hvad har jeg glemt

ole hj du skal bruge mit sidste eksempel 22:03:07 ikke det første, fordi der er fejl i det...

hva mener du >doc404< det vil da være dumt at sidde og skrive svaret i hånden, ja det er copy and paste fra et program jeg har, så hvad er problemet "ss"

stone. Du har lidt for mange creates,begin og for så free...

Din kode burde have set sådan ud..

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
  edit1.Text := IniFile.readString('Settings','edit1','');
  edit2.Text := IniFile.readString('Settings','edit2','');
  edit3.Text := IniFile.readString('Settings','edit3','');
  inifile.free;
end;

og på samme måde skal button1click rettes

ole hj: den du sendte der 22:03:07 har jeg fået til at virke. det er måske en copy fejl

ok "doc404" det er en bedre løsning, sad ikke med delphi så jeg var i mine gemmer...

takker

ok....