Txt in Listview Laden

[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?

[Volker Z.]

Hallo,

item ist vermutlich ein Item der Listview. So müsste es dann wohl Kassenbuch.Item [i].Data := FObjects [i] heißen. Die Frage ist nur lebt den FObjects [i] an der Stelle schon? Ich sehe, dass Du da mit LoadFromFile irgendwas einließt, aber sicher nicht an Deine ObjectList weitergibst.

Gruß

[Natcree]

wie mache ich das denn mit dem weiter geben

[Natcree]

ich habe die daten schon in die listview gebracht aber sie müssen in die Objectliste weil ich die Listview nach jeder eingabe update. wie bekomme ich denn die Übergabe zur objectlist hin?

[Volker Z.]

Hallo,

wenn Du mit LoadList.LoadFromFile('c:\test.txt'); die Daten einliest und entsprechend in der Listview ausgibst, dann ist doch zunächst alles ok.
Wenn Du nun einen neuen Kassenbucheintrag hinzufügst (Kassenbuch.Items.Add) oder löscht (Kassenbuch.Items.Delete (Iregendeinindex)), dann kannst Du doch an geeigneter Stelle Deine Listview durcharbeitest und den ganzen Spaß über eine StringList abarbeiteten und in Deine Datei zurückschreiben: also

Delphi-Quellcode:

  // in einer for Schleife
  Stringlist.Add (Kassenbuch.Item [i].Caption  + #14 + Kassenbuch.Item [i].SubItem [0] ...)); 

  // anschließend
  Stringlist.SaveToFile ('c:\test.txt');

sollte es das tun.

Gruß

[Natcree]

Zitat von Volker Z.:

Hallo,

item ist vermutlich ein Item der Listview. So müsste es dann wohl Kassenbuch.Item [i].Data := FObjects [i] heißen. Die Frage ist nur lebt den FObjects [i] an der Stelle schon? Ich sehe, dass Du da mit LoadFromFile irgendwas einließt, aber sicher nicht an Deine ObjectList weitergibst.

Gruß

F Objects liegt auf form1 und wird mit form create gestartet ich habe natürlich auch noch eine Klasse aber ich denke die muss da nicht mit rein oder auf diese greift er nur bei eigaben zurück dort sind die Formate für die einzellnen counts gesetzt.

[Volker Z.]

Hallo,

also FObjects ist eine Property von Form1. Was für ein Datentyp hat den FObjects? Was wird in FormCreate gestartet? Hilfreich wäre Quellcode.

Gruß

[Natcree]

procedure TForm1.FormCreate(Sender: TObject);
begin
FObjects := TObjectlist.Create;
end;