In INI Datei abspeichern

[mindforce]

.................................................. .................................................. .................................................. ...................................

Und wie deklariere ich TPersData? ...

Ok das Dsdt Totorial zieh ich mir nocheinmal durch... moment....

/Edit : born to be alive

//Edit : SCHREI. Ok probier ich aus

///Edit: @ PierreB. Ist dein Code nun ini schreiben, ini beim laden laden, oder beides was ich bezeifel.

[PierreB]

TPersData war meine Beispiel-Form, nimm einfach nen Button und kopier den Code ohne die procedure-Geschichte auf dein Form.

[PierreB]

Zitat:

@ PierreB. Ist dein Code nun ini schreiben, ini beim laden laden, oder beides was ich bezeifel.

Alles. Lies einfach meine Kommentare. TIniFile.Create läd die Ini-Datei, ini.Write schreibt in die Datei und ini.Free schließt die Datei wieder. Bitte tu dir selbst und uns einen Gefallen und guck mal in deine Delphi-Hilfe.

[mOzZzI]

Zitat von PierreB:

Is doch ganz simpel:

Delphi-Quellcode:

procedure TPersData.Button1Click(Sender: TObject);
var
  Ini: TIniFile; //Variable wird erstellt
begin

  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data/data.ini'); //Ini-Datei wird geladen
  ini.WriteString('PersData', 'Vorname', 'blupp'); //Daten werden geschrieben
  ini.Free; //Ini-Datei wird geschlossen
end;

besser ist aber:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile; //Variable wird erstellt
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data/data.ini'); //Ini-Datei wird geladen
 try
  ini.WriteString('PersData', 'Vorname', 'blupp'); //Daten werden geschrieben
 finally 
  ini.Free; //Ini-Datei wird geschlossen
end;

^^
Gruß Philipp

[mindforce]

Bitte. Kann mir jemand die Unit schreiben, so wie PierreB´s Beispiel

Gruss,

Mindforce

[mOzZzI]

Zitat von mindforce:

Bitte. Kann mir jemand die Unit schreiben, so wie PierreB´s Beispiel

Gruss,

Mindforce

Wieso Unit?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, iniFiles, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ini : TiniFile;  //ini variable
begin
  ini := TiniFile.Create(ExtractFilePath(ParamStr(0))+'bin/'+'config.ini'); //ini erstellen
 try
  begin
  Edit1.Text := ini.ReadString('NAME', 'Hans', ''); //String wird ausgelesen und in Edit eingetragen
 finally
  ini.Free; //ini schließen
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var ini : TiniFile;  //ini variable
begin
  ini := TiniFile.Create(ExtractFilePath(ParamStr(0))+'bin/'+'config.ini'); //ini erstellen
 try
  begin
  ini.WriteString('[NAME]', 'Hans', 'Peter'); //String wird geschrieben
 finally
  ini.Free; //ini schließen
  end;
end;

end.

[mindforce]

Hast du den Code überhaupt ausprobiert?

Er kann Variants nicht finden.

[Flare]

Zitat:

Edit1.Text := ini.ReadString('[NAME]', 'Hans', ''); //String wird ausgelesen und in Edit eingetragen

Also ich bin der Meinung, dass man die eckigen Klammern um Name nicht setzten sollte, denn dann werden die doppelt abgespeichert, bzw. beim einlesen erstmal nicht erkannt...


Flare

[ManuMF]

Ich glaube, das solltest du selbst tun

Gruß,
ManuMF

P.S.: Ja, die Klammern müssen nicht rein.

[mOzZzI]

Zitat von Flare:

Zitat:

Edit1.Text := ini.ReadString('[NAME]', 'Hans', ''); //String wird ausgelesen und in Edit eingetragen

Also ich bin der Meinung, dass man die eckigen Klammern um Name nicht setzten sollte, denn dann werden die doppelt abgespeichert, bzw. beim einlesen erstmal nicht erkannt...


Flare

Ja, sry, ich hab das jetzt in 2mins geschrieben, ich änders gleich!

mindforce, wieso erkennt er warscheinlich Variants nicht??

//Edit
Wieso sollte ich den Code testen, wenn ich weiß das ich nichts falsch gemacht habe (außer Rechtschreib/Leichtsinnsfehler)^^