string in ini speichern und wieder laden

[Prym]

also wenn mir jemand helfen könnte ich würde gerne wissen wie ich eine ini datei erstelle
in diese datei einen string schreibe den ich aus einem edtfeld gewonnen habe

so dann würde ich das auch gerne wieder laden und auf einem laber ausgeben

wäre sehr nett wenn man das detaliert in 2 buttons machen könnte heißt ein butten speichern der andere laden

ps: wenn das hier falsch ist sorry ich bin zum erstenmal hier
und schonmal danke auch wenn man sich das nur durschgelesen hat^^
mfg

[alcaeus]

Hallo Prym,

erstmal herzlich willkommen. Dir muesste eigentlich klar sein, dass dies nichts, aber gar nichts mit Datenbanken zu tun hat

Sieh dir mal die Online-Hilfe zum Thema TIniFile an, das sollte helfen.

Greetz
alcaeus

[Binärbaum]

Schau dir mal TIniFile aus der Unit IniFiles an.
(ReadString und WriteString dienen dort dazu Strings zu lesen/ speichern.)

MfG
Binärbaum

[Prym]

ja danke ich haber gerade erst gesehen das es eine foren übersicht gibt^^
sorry das es falsch ist

[Prym]

würde das gehen

Delphi-Quellcode:

uses
IniFiles

procedure TForm1.Button1Click(Sender: TObject);

var
 DelphiIni: TIniFile;
begin

DelphiIni := TIniFile.Create('c:\x\x.ini');
DelphiIni.WriteString('test');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 a : strind
 DelphiIni: TIniFile;
begin

a:= ReadString ('c:\x\x.ini');
label1.caption := a;
end;

oder ist das schon falsch

[edit=Sharky]Habe mal die Delphi-Tags gesetzt Mfg, Sharky[/edit]

[Robert_G]

Hast du denn überhaupt in der Hilfe nachgeschlagen?
Dann wärst du nie auf diese Idee gekommen. a:= ReadString ('c:\x\x.ini');

[Binärbaum]

Zitat von Prym:

würde das gehen

Vielleicht. Probiers doch aus. Dann würdest du merken, dass der Compiler meckert.
Besser ist's deshalb so:

Delphi-Quellcode:

uses
IniFiles

procedure TForm1.Button1Click(Sender: TObject);
var DelphiIni: TIniFile;
begin
  DelphiIni := TIniFile.Create('c:\x\x.ini');
  DelphiIni.WriteString('Section','Str1','test');
  DelphiIni.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a : string;
    DelphiIni: TIniFile;
begin
  DelphiIni:= TIniFile.Create('c:\x\x.ini');
  a:= DelphiIni.ReadString('Section', 'Str1','');
  DelphiIni.Free;
  label1.caption := a;
end;

Evtl. solltest du (nochmal) in der OH nachschauen, wie ein TIniFile arbeitet.

MfG
Binärbaum

//Edit: QT ausgebessert

[Prym]

er zeigt einen fehler bei

a:= ReadString('Section', 'Str1','');

fehler
[Error] Unit1.pas(43): Undeclared identifier: 'ReadString'

[Duffy]

Hallo Prym,
vielleicht geht es mit einem Beispiel besser ...

bye
Claus