Speichern

[Soldier]

Kann mir jemand sagen, wie ich eine eintragung speichern lassen kann?

Sodass ich z.B. einen Speicherbutton einrichte, und wenn ich das Programm später neustarte laden kann, und nich alle werte wieder neu eintragen muss.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin

        a:=strtofloat(edit1.Text);
        b:=strtosloat(edit2.text);
        c:=a+b;
        edit3.Text:=floattostr(c);

        {um ma ein ganz einfaches Bsp. zu nehmen}

end;

end.

sodass, wenn ich was ins textfeld 1 und 2 eintrage, er das speichert, ich das programm schließe und beim nächsten öffnen, ich auf laden drücken kann und die werte vom letzten mal wieder da stehn.


mfG

[bundy]

Hi

Du könntest es in ein Inifiles auslagern, und bei bedarf laden.

Unit IniFiles


so ca

Delphi-Quellcode:

var
  Brandingfile:TIniFile;

procedure laden;
begin
Brandingfile:=TIniFile.Create('branding.ini');
Edit1.Text := Brandingfile.ReadString('DATA','Contact','');
Edit2.Text    := Brandingfile.ReadString('DATA','Name','');
Edit3.Text:= Brandingfile.ReadString('DATA','Location','');
end;

procedure speichen;
begin
Brandingfile:=TIniFile.Create('branding.ini');
Brandingfile.WriteString('DATA','Contact',Edit1.Text);
Brandingfile.WriteString('DATA','Name',Edit2.Text);
Brandingfile.WriteString('DATA','Location',Edit3.Text);
end;

Ich hoffe das hilft dir

lg
Bundy

[citybreaker]

Ini Dateien wäre dabei sicher ne gute Lösung.
Hier nen Tutorial dazu: http://www.delphipraxis.net/internal...e431a3c38fc0f6

[Soldier]

Bei mir sagt er immer 'Undeclared identifier 'Tinifile', gleich oben bei 'var'

auch beim tutrorial kennt er TiniFile.Create nicht

was ist das?

[himitsu]

Schau mal in die OH ... bei TIniFile ... dort drin steht welche Unit du noch mit einbinden mußt

[Nils_13]

Hat Delphi6 überhaupt diese Unit ?
Ich programmiere mit der Unit immer mit folgenden Aufbau:

Delphi-Quellcode:

procedure TfrmMain.FormDestroy(Sender: TObject);
var Ini      : TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'settings.ini');
  Ini. ...
  Ini.Free;
end;

In OnCreate dann nochmal der gleiche Code.

[pacman1986]

ich glaub die unit heisst inifiles

[himitsu]

D6 sollte es kennen, denn mein D4 kenn es ja och schon