Skriv til ini fil hjælp fejl!

hvid du bare skal have gemt indtastningerne i 2 editfelter

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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);
inifile.free
end;
end;

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','');
inifile.free;
end;
end;



end.

Der er flere problemer.

//////////////////læs mine kommentarer længere nede.


procedure TForm1.Button1Click(Sender: TObject);
var
              Ini: TIniFile;
              I: Integer;
                            PathINI : String;
begin
PathINI := 'D:\Hjemmelavet\VIRKER\Kalender\standard.ini';
////////////////////////
for at kunne oprette inifilen må du først lave mapperne til din PathIni

Createdir('D:\Hjemmelavet);
Createdir('D:\Hjemmelavet\VIRKER);
Createdir('D:\Hjemmelavet\VIRKER\Kalender);

//////////////////////

Ini := TIniFile.Create(PathINI);
I := 1;
//start første while og write

/////////////////////////////////
while Ini.ReadString('husk', 'hvad'+IntToStr(I), '') <> ''
hvis der ikke står nogen værdi i inifilen til denne betingelse bliver intet skrevet (og det gør der jo i hvertfald ikke fra starten).

Det samme problem i næste "while"
//////////////////////////////
while Ini.ReadString('husk', 'hvad'+IntToStr(I), '') <> '' do
begin
Inc(I);
Ini.WriteString('husk', 'hvad'+IntToStr(I), edit2.Text);
end;
//Slut første write og while
//Start anden write og while
while Ini.ReadString('husk', 'evt'+IntToStr(I), '') <> '' do
begin
  Ini.WriteString('husk', 'evt'+IntToStr(I), edit1.Text);
INI.Free;
end;
//Slut anden write og while
//Start tjek om INI filen findes og luk
If FileExists('standard.ini') Then
    ShowMessage('Huskeseddel er gemt')
  Else
    ShowMessage('Fejl ved skrivning af Huskeseddel Da nogle af programmet filer er beskadige');
close;
//Slut tjek om INI filens findes og luk
end;

det her kan ikke compiles da der er flere fejl
bla.. i
Createdir('D:\Hjemmelavet);
Createdir('D:\Hjemmelavet\VIRKER);
Createdir('D:\Hjemmelavet\VIRKER\Kalender);
uafsluttet streng (')

standard.ini bliver ikke oprettet


Det ville være nemmere hvis du definere hvad du vil.... kan du ikke forklare hvad dit progam skal..

Jeg har skamallerede den ini fil, det var bare det med de 2 whiles der skulle køres
SÅ ingen point til nogle

Kan ikke compiles?? Nej OK strengene skal naturligvis afsluttes med '.
Det var lige smuttet i farten.

Createdir('D:\Hjemmelavet');
Createdir('D:\Hjemmelavet\VIRKER');
Createdir('D:\Hjemmelavet\VIRKER\Kalender');

Svar