ListView und Textdatei

[MaM]

So, die Fehlermeldung konnte ich abschalten. Nur habe ich jetzt das Problem, dass die Werte nicht mehr in die Textdatei geschrieben werden.

Code:

Delphi-Quellcode:

unit Kundenhinzufuegen;

interface

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

type
  TForm_Kundenhinzufuegen = class(TForm)
    L_KdNr: TLabel;
    GB_Kundendaten: TGroupBox;
    E_Firma: TEdit;
    E_Nachname: TEdit;
    L_Firma: TLabel;
    L_Nachname: TLabel;
    L_Vorname: TLabel;
    GB_Anschrift: TGroupBox;
    L_Strasse: TLabel;
    L_Plz: TLabel;
    L_Ort: TLabel;
    E_Strasse: TEdit;
    E_Plz: TEdit;
    E_Vorname: TEdit;
    E_Ort: TEdit;
    L_Land: TLabel;
    GB_Kontakt: TGroupBox;
    L_Telefon: TLabel;
    L_Fax: TLabel;
    L_Mobiltelefon: TLabel;
    L_eMail: TLabel;
    E_Telefon: TEdit;
    E_Fax: TEdit;
    E_Mobiltelefon: TEdit;
    E_eMail: TEdit;
    GroupBox1: TGroupBox;
    M_Ansprechpartner: TMemo;
    CB_Land: TComboBox;
    E_KdNr: TEdit;
    GroupBox2: TGroupBox;
    L_Zustaendigkeit: TLabel;
    L_Auslieferungsdatum: TLabel;
    E_Zustaendigkeit: TEdit;
    E_Auslieferungsdatum: TEdit;
    B_Hinzufuegen: TButton;
    B_Abbrechen: TButton;
    Label1: TLabel;
    E_Planungsende: TEdit;
    procedure B_HinzufuegenClick(slDaten: TStringList);
    procedure FormCreate(slDaten: TStringList);
    procedure B_AbbrechenClick(Sender: TObject);
    procedure FormDestroy(slDaten: TStringList);
  private
    function NeueZeile: string;
.
.
.

function TForm_Kundenhinzufuegen.NeueZeile: string;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add(E_Firma.Text);
  sl.Add(E_Nachname.Text);
  sl.Add(E_Vorname.Text);
  sl.Add(E_Strasse.Text);
  sl.Add(E_Plz.Text);
  sl.Add(E_Ort.Text);
  sl.Add(CB_Land.Text);
  sl.Add(E_Telefon.Text);
  sl.Add(E_Fax.Text);
  sl.Add(E_Mobiltelefon.Text);
  sl.Add(E_eMail.Text);
  sl.Add(E_Zustaendigkeit.Text);
  sl.Add(E_Auslieferungsdatum.Text);
  sl.Add(E_Planungsende.Text);
  sl.Add(M_Ansprechpartner.Text);
  sl.Add(E_Firma.Text);
  Result := sl.CommaText;
  sl.Free;
end;


procedure TForm_Kundenhinzufuegen.B_HinzufuegenClick(slDaten: TStringList);
begin
  slDaten.Add(NeueZeile);
end;

procedure TForm_Kundenhinzufuegen.FormCreate(slDaten: TStringList);
begin
  slDaten := TStringList.Create;
  slDaten.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\kunden.txt');
end;

procedure TForm_Kundenhinzufuegen.B_AbbrechenClick(Sender: TObject);
begin
  Close;
end;

procedure TForm_Kundenhinzufuegen.FormDestroy(slDaten: TStringList);
begin
  slDaten.SaveToFile(ExtractFilePath(Application.ExeName)+'data\kunden.txt');
  slDaten.Free;
end;

Gibt es ggf. noch Verbesserungsvorschläge zu dem Code?



MaM