Rundenzähler für mehrere Läufer (Delphi 7 Prof)

[JIP0815]

Delphi-Quellcode:

procedure TForm1.LEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key = 13) then
begin
 Stream:= TFileStream.Create('.\Liste.csv', fmCreate);
  try
    Stream.WriteComponent(EventView);
  finally
    Stream.Free;
    end;
    end;
end;

so erzeuge ich jetzt meine Liste....

Nun hab ich aber das Problem, dass ich nicht nur die Tabelle, sondern auch die Eigenschaften etc. dadrin stehen habe

Gibt es da noch ne elegantere und genauso einfache Lösung?



P.S.:

Zitat:

Nee, also so einfach kannst du ein Excel-Format (XLS) nicht schreiben, das kann Delphi nicht "out of the box"
Willst du XLS schreiben, brauchst du entweder eine Komponente, die das kann (kostet meist was), oder du schreibst dir das selbst (sehr aufwändig und ziemlich komplex).

Wie wärs mit der Excel-Komponente aus dem Reiter "Server"?
Leider ist mir die Geschichte mit der Excel-Anwendung im Hintergrund etwas zu kompliziert.

[Klaus01]

Guten Abend,

wenn Du "nur" die Captions der ListView abspeichern willst.
Würde ich das mit einer StringList erledigen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
  i: Byte;
begin
   sl := TStringList.Create;
  try
    for i:=0 to listView1.Items.Count -1 do
      sl.add(listView1.Items[i].caption);
    sl.SaveToFile('.\Liste.csv');
  finally
    sl.free;   
  end;
end;

Grüße
Klaus

[JIP0815]

Guten Morgen,


Mhh irgendwas stimmt da bei mir noch nicht.


Also soweit ich das beurteile kann ist das ganze an sich nicht schlecht, würd es den bei mir funktionieren

Werd noch ein bissen rumprobieren, vielleicht find ich ja noch die Lösung.

Gruß

JIP

[JIP0815]

Problem teils gelöst:

i kann nicht als Byte sondern nur als Integer gesetzt werden


Nun habe ich aber noch das Problem, das zwar die Läufernummer, aber nicht die Rundenzahl in die Datei geschrieben wird

Die Caption sollte wenn möglich als Tabelle gespeichert werden.

Nochmal Gruß


J!P