Werte in .ini speichern?

[Luckie]

Naja, ohne Pfadangabe speichert Windows die Datei im aktuellen Arbeitsverzeichnis und das muss nicht das Programmvereichnis sein.

[AlexII]

Ja und wieso werden die Werte mit diesem Code nicht geladen?

Ini:=TIniFile.Create('config.ini');

[Matze]

Vielleicht hat sich der Arbeitspfad geändert, wer weiß.
Nimm generell absolute Pfade, dann passiert sowas nicht.

[OldGrumpy]

Weil das aktuelle Verzeichnis in dem Moment ein anderes sein kann als beim Speichern. Und dann wird im Zweifelsfalle einfach die Datei nicht gefunden und duster is'.

[AlexII]

Soll ich dann den Code

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini'); beim Schreiben der .ini und Lesen benutzen, oder nur beim Lesen?

[Luckie]

Bei beidem natürlcih.

[blablab]

Bei Ini.Create wird nicht wie sonst üblich das aktuelle verzeichnis genommen, sondern es wird standardmäßig ins windows-verzeichnis gespeichert.

[stoxx]

solche "Kleingikeiten" würde ich nur noch so speichern *grins*

Delphi-Quellcode:

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    btn1: TButton;
    tb1: TTrackBar;
    chk1: TCheckBox;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type TSaveValues = class(TPersistent)
private
    FPosition : Integer;
    FProxyIP: string;
    FProxyChecked: Boolean;
published
 property Position : Integer read FPosition write FPosition;
 property Checked : Boolean read FProxyChecked write FProxyChecked;
 property Text : string read FProxyIP write FProxyIP;
end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.btn1Click(Sender: TObject);
var value : TSaveValues;
begin
  value := TSaveValues.Create;
  value.CopyPupProperiesFrom(tb1);
  value.CopyPupProperiesFrom(chk1);
  value.CopyPupProperiesFrom(edt1);
  value.SaveToXML('Settings.xml');
  value.Free;
end;

end.

http://www.delphipraxis.net/internal...148&highlight=




.

[stoxx]

Delphi-Quellcode:

//==============================================================================
// oder so noch einfacher die kompletten Komponenten .. ohne  TSaveValues :-)
//==============================================================================

procedure TForm9.btn2Click(Sender: TObject);
begin

  tb1.SaveToXMLContainer('trackbar');
  chk1.SaveToXMLContainer('Checkbox');
  edt1.SaveToXMLContainer('Edit');


end;

[AlexII]

Und wieso ist dein Vorschlag besser als .ini?