Ini Datei Problem

[Popov]

Ob es das ist weiß ich nicht, aber auf die Schnelle siehe ich hier einen Fehler:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
begin
ini:=TIniFile.create('C:\FPV\KW\' + lbljahr.Caption + '-'+ label7.caption+'-1.kw');
ini.WriteString('Montag','Kunde', '' +listbox2.Items.Text);

Nach meiner Kenntnis gehört dahinter zuerst ein ini.Free; Wobei ich sagen muß, dass man bei dir sehr vieles optimieren kann, da du achtfach machst, was einfach ginge.

[Popov]

Zitat von Popov:

Ob es das ist weiß ich nicht, aber auf die Schnelle siehe ich hier einen Fehler:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
begin
ini:=TIniFile.create('C:\FPV\KW\' + lbljahr.Caption + '-'+ label7.caption+'-1.kw');
ini.WriteString('Montag','Kunde', '' +listbox2.Items.Text);

Nach meiner Kenntnis gehört dahinter zuerst ein ini.Free; Wobei ich sagen muß, dass man bei dir sehr vieles optimieren kann, da du achtfach machst, was einfach ginge.

//Edit:

Hier vielleicht eine Anregung man du etwas kürzen könntest (ungeprüft):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
  procedure ListBoxX(ListBox: TListBox);
  begin
    ListBox.OnDragOver := ListBox1DragOver;
    ListBox.OnDragDrop := ListBox1DragDrop;
    Listbox.Dragmode := dmAutomatic;
    ListBox.MultiSelect := true;
  end;
var i : byte;
begin
  ListFileDir('C:\FPV\KUNDEN\', ListBox1.Items);
  for i:=1 to 7 do
  Kalender.Date:=Date;
  KalenderChange(nil);
  KalenderMonthChange(nil);
  KalenderYearChange(nil);

  ListBoxX(ListBox1);
  ...
end;

procedure TMainForm.Button1Click(Sender: TObject);
   procedure WriteIniStr(Path, Section, Ident, Value: String);
   var
     ini: TIniFile;
   begin
     ini:=TIniFile.create(Path);
     ini.WriteString(Section, Ident, Value);
     ini.Free;
   end
begin
  WriteIniStr('C:\FPV\KW\' + lbljahr.Caption + '-'+ label7.caption+'-1.kw',
    'Montag','Kunde', '' +listbox2.Items.Text);
  ...
end;