TListView: Wie speichert/lädt man Daten?!

[MCXSC]

Hallo!

Ich habe ein großes Problem, bzw. habe keine Ahnung, wie die TListView funktionieren. Folgendes:

Ich wollte ein Termin-Verwaltungstool proggen, bei dem man die Daten der Termine ganz normal in Edit-Feldern eingibt und diese in eine Ini-Datei gespeichert werden (z.B. Datum=...).

Diese Ini-Datei soll dann ausgelesen werden und die einzelnen Daten in die jeweilige Spalte (vorher angelegt) der TListView eingetragen werden.

Doch da ist mein Problem:

Ich weiß nicht, wie man Daten in die TListView einliest. Ich habe im Moment 3 Spalten (Datum, Uhrzeit,
Betreff). In der Ini Datei sind sie so gespeichert:

[Datum - Uhrzeit]
Datum=...
Uhrzeit=...
Betreff=...

(Ich weiß, das die Sache mit der Ini katastrophal ist, aber nur zur Erklärung)

Wie kann ich nun den Betreff, das Datum und die Uhrzeit in die jeweiligen Spalten einlesen und das auch mit mehren Terminen?

Kann mir jemand helfen?

mcXsc

[rantanplan99]

Delphi-Quellcode:

var
  li: TListItem;
begin
  ...
 
  
  li := ListView1.Items.Add;

  li.Caption := sDatum; // 1te Spalte
  li.SubItems.Add(sUhrzeit); // 2te Spalte
  li.SubItems.Add(sBetreff); // 3te Spalte

  ...
end;

(Edit: hab doch glatt vergessen das Delphi-Code-Tag zu schleissen)

[MCXSC]

Ah ja, das habe ich gesucht. Danke!

[MCXSC]

Okay, den ersten Eintrag kann ich anzeigen... aber nicht alle.... Wie wiederhole ich das mit der nächsten Ini-Section?

[rantanplan99]

Du musst einfach den block wiederholen mit den werten für den nächsten eintrag:

Delphi-Quellcode:

  li := ListView1.Items.Add;
  li.Caption := sDatum; // 1te Spalte
  li.SubItems.Add(sUhrzeit); // 2te Spalte
  li.SubItems.Add(sBetreff); // 3te Spalte

[MCXSC]

Ja, das weiß ich ja. ABer genau da ist das Problem: Wie mache ich das?

[rantanplan99]

Das kann ich dir auch nicht sagen, ich weiss ja nicht wie du die Daten abgespeichert hast, oder wie deine Daten vorliegen oder was auch immer.

[MCXSC]

Habe ich doch. Beispiel meiner Ini-Datei:

Zitat:

[12.12.2004 - 12:31]
Datum=12.12.2004
Uhrzeit=12:31
Betreff=Treffen I

[13.12.2004 - 12:11]
Datum=13.12.2004
Uhrzeit=12:11
Betreff=Treffen II

[edit=MrSpock]Doppelpost gelöscht. Mfg, MrSpock[/edit]

[rantanplan99]

Delphi-Quellcode:

var
  i: integer;
  Sec: TStrings;
  Ini: TIniFile;
  sDatum, sUhrzeit, sBetreff: String;
  li: TListItem;
begin
  Sec := TStrings.Create;
  Ini := TIniFile.Create('Termine.ini');
  Ini.ReadSections(Sec);

  for i := 0 to Sec.Count - 1 do begin
    sDatum := ini.ReadString(Sec.Strings[i], 'Datum', '');
    sUhrzeit := ini.ReadString(Sec.Strings[i], 'Uhrzeit', '');
    sBetreff:= ini.ReadString(Sec.Strings[i], 'Betreff', '');
  
    li := ListView1.Items.Add;
    li.Caption := sDatum;
    li.SubItems.Add(sUhrzeit);
    li.SubItems.Add(sBetreff);
  end;

  Ini.Free;
  Sec.Free;
end

Ich habs zwar nicht ausprobiert (werd ich auch nicht), sollte aber so funktionieren. Wer Fehler findet darf sie behalten (oder selbst korrigieren) *g*

[MCXSC]

Das geht auch nicht. Da kommt immer die Fehlermeldung "Abstrakter Fehler". Ich habe den QUelltext mal angehangen, vielleicht kann mir damit ja jemand helfen...