Txt in Listview Laden

[Natcree]

Hallo ich habe ein Listview die über eine Objectlist bearbeitet werden kann nun Speichere ich beim beenden die Listview in eine *.txtab. Alles kein Problem soweit.

Beim laden der txt datei fügt er sie in die Listview = kassenbuch ein das funktionier. aber sobald ich neue Sachen der Listview mit hinzufüge dann verschwinden diese. Muss ich die txt in die Objectliste einlesen??? hier mal der Code.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
Var
  LoadList: TStrings;
  i, ActPos, PrevPos: Integer;
Const
  Delimitter = #14;

Begin
   LoadList := TStringList.create;

  Try
    // Laden...
    LoadList.LoadFromFile('c:\test.txt');
    // Lösche den ListView
    Kassenbuch.Items.Clear;

    // Laufe durch Zeilen der StringList
    For i := 0 To pred(LoadList.Count) Do
    Begin
      PrevPos := 1;
      ActPos := 1;
      // Erste Position des Delimitters
      ActPos := PosEx(Delimitter, LoadList[i], succ(ActPos));
      // Erstelle Item
      With Kassenbuch.Items.Add Do
      Begin
        // setze Caption des neuen Items
        Caption := Copy(LoadList[i], PrevPos, (ActPos - PrevPos));
        PrevPos := succ(ActPos);
        // erzeuge für jeden gefundenen Delimitter ein SubItem
        Repeat
          ActPos := PosEx(Delimitter, LoadList[i], succ(ActPos));
          If ActPos <> 0 Then
            SubItems.Add(Copy(LoadList[i], PrevPos, (ActPos - PrevPos)))
          Else
            SubItems.Add(Copy(LoadList[i], PrevPos, Length(LoadList[i])));
          PrevPos := succ(ActPos);
        // Wenn ActPos = 0 (kein Delimitter gefunden) -> fertig
        Until ActPos = 0;
      End;
    End;
   finally    
end;
   end;

[DeddyH]

Du musst Dir erst einmal über die Funktionsweise im Klaren sein, sonst stellst Du noch 200 Fragen und bist hinterher immer noch nicht schlauer. Da ist zunächst einmal die Objektliste. Diese enthält die eigentlichen Daten. Datenänderungen (Hinzufügen, Bearbeiten, Löschen) haben also immer hier zu erfolgen. Die Listview dient lediglich dazu, diese Daten zu visualisieren, daraus folgt: ändert sich etwas an den Daten, muss die ListView aktualisiert werden. Prinzipiell würde das Programm auch als Konsolenanwendung funktionieren, dann hat man eben keine Komponenten, sondern gibt sein Zeugs auf der Kommandozeile ein. Und auch bei Verwendung der VCL ist die Darstellungskomponente austauschbar, das kann die ListView, ein StringGrid, ein Memo, eine ListBox oder was weiß ich sonst noch sein. Verinnerliche dies, und schau Dir Deinen Code daraufhin noch einmal an, dann beantworten sich viele Fragen ganz von selbst.

[Popov]

Erstens:

Delphi-Quellcode:

Var
  LoadList: TStrings;

Das sollte so lange klappen, solange du keine typische TStringList Funktion nutzt. Mach also besser TStringList draus.

[Natcree]

Will die Daten schon in die Objectliste laden das ist mir klar weil die listview ja nur die Visuelle wiedergabe darstellt. Wie müsste ich denn mit meinem Code Anfangen? Kann mann meinen Code Oben auf die Objectliste umschreiben wenn ja wie? Arbeite zum erstenmal mit Objectklassen. Also in die Listview Kriege ich sie ja aber wie Weiter???

[Natcree]

Habe mal meinen Code umgeschrieben er sagt mir jetzt list out of Bounds(0) als Fehler

Hier der Code

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
Var
  Item: TListItem;
  LoadList: TStringlist;
  i, ActPos, PrevPos: Integer;
Const
  Delimitter = #14;

Begin
   LoadList := TStringList.create;
Try
    // Laden...
    LoadList.LoadFromFile('c:\test.txt');
   // Lösche den ListView
    Kassenbuch.Items.Clear; //Kassenbuch =Listview1

    // Laufe durch Zeilen der StringList
    For i := 0 To pred(LoadList.Count) Do
    Begin
      PrevPos := 1;
      ActPos := 1;
      // Erste Position des Delimitters
      ActPos := PosEx(Delimitter, LoadList[i], succ(ActPos));
      // Erstelle Item
       item.Data:=FObjects[i];
      With FObjects[i] Do
      Begin
        // setze Caption des neuen Items
        Caption := Copy(LoadList[i], PrevPos, (ActPos - PrevPos));
        PrevPos := succ(ActPos);
        // erzeuge für jeden gefundenen Delimitter ein SubItem
        Repeat
          ActPos := PosEx(Delimitter, LoadList[i], succ(ActPos));
          If ActPos <> 0 Then
           item.SubItems.Add(Copy(LoadList[i], PrevPos, (ActPos - PrevPos)))
          Else
           item.SubItems.Add(Copy(LoadList[i], PrevPos, Length(LoadList[i])));
          PrevPos := succ(ActPos);
        // Wenn ActPos = 0 (kein Delimitter gefunden) -> fertig
        Until ActPos = 0;
      end;
   end;
   except
   end;
   end;

[Bummi]

Zitat:

// Erstelle Item
item.Data:=FObjects[i];

wo wird item erstellt und was ist FObjects[i]

[Natcree]

FObjects ist meine Objectliste

Zitat:

wo wird item erstellt

Was meinst du damit?