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

[blackfin]

Zitat:

Ööhmm... in dem Beispielprogramm wird keine DB verwendet

Davon war im ersten Post auch gar nicht die Rede, deswegen ist mein Beispiel ohne DB mit einem simplen TListView
Wenn eine Datenbank von Nöten ist, dann ist mein Beispiel natürlich nicht ganz das richtige, obwohl man ja auch die TListView-Items aus einer Datenbank laden und in diese speichern könnte.
Da bieten sich dann aber solche Sachen wie DBGrid doch mehr an

Zitat:

Gibt es eine Möglichkeit diese Tabelle anhand der Rundenzahlen zu sortieren?

Die einfachste Möglichkeit in meinem Beispiel mit TListview wäre, die Runde einfach statt dem Läufer in die erste Spalte ("Caption") zu setzen, dann sortiert er bei SortType "stText" nach der Runde. Der ListView sortiert nämlich immer per standard nach der ersten Spalte.
Willst du es nach der zweiten Spalte sortieren, brauchst du das OnCompare-Event vom Listview, in dem du dir dann deine eigene Sortier-Routine zusammenbastelst.
Dazu gibts auch ein kleines Tutorial:
http://www.latiumsoftware.com/en/delphi/00011.php

[DeddyH]

Ich bezog mich auch auf den Post von Scrat: SQL nützt in Deinem Programm ja nix

[JIP0815]

@Blackfin:

Danke für den Link und deinen Tipp, habe aber wahrscheinlich eine bessere Lösung gefunden:

http://www.latiumsoftware.com/en/delphi/00001.php

Ich würde gerne die Liste (TListView) als Excel-Tabelle exportieren

Kann man das wie in dem oberen Link beschrieben machen???

Könnte mir jemand kurz schreiben welche Variablen ich in der procedure ersetzten muss?!:

Delphi-Quellcode:

procedure SaveFile(const FileName: TFileName;
                   const content: string);
begin
  with TFileStream.Create(FileName, fmCreate) do
    try
      Write(Pointer(content)^, Length(content));
    finally
      Free;
    end;

SOll ich unter (T)FileName den Namen der Excel-Tabelle inkl. Pfad angeben??
Ist TFileStream := TListView???


Gruß

JIP

[blackfin]

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).

Alternativ-Vorschlag:
Ich würde die Reihen und Spalten des TListView mit einem TFileStream in eine CSV-Datei schreiben, die kannst du dann ganz leicht ins Excel importieren.
Dazu gehst du einfach Zeile für Zeile durch und schreibst den Inhalt der Zellen einfach raus.

Wie eine CSV-Datei aufgebaut ist, findest du hier
Wikipedia: CSV-Datei

Zitat:

Ist TFileStream := TListView???

Huh? Das verstehe ich jetzt nicht. TFileStream ist ein Datei-Stream und ein TListView ist eine sichtbare VCL-Komponente.
Die haben erstmal nichts gemeinsam....

[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

[Klaus01]

Hallo J!P,

wie ist denn Deine EventView aufgaut?

LäuferNr Rundenzahl

Grüße
Klaus

[JIP0815]

Zitat:

LäuferNr Rundenzahl

genau so

Gruß

J!P

[Klaus01]

Hi J!P,

hat etwas länger gedauert...

Grüße
Klaus

Delphi-Quellcode:

// befüllen des ListView
procedure TForm1.Button1Click(Sender: TObject);
var
  item:TListItem;
  i: Byte;
begin
  ListView1.Columns[0].Caption:='Läufer';
  ListView1.Columns[1].Caption:='Runde';

  for i:=0 to 5 do
    begin
      item := ListView1.Items.Add;
      item.Caption:='Alice'+IntTostr(i);;
      item.SubItems.Add(intToStr(i));
    end;
  ListView1.Items[0].SubItems[0]:='123';

end;

//auslesen des ListView
procedure TForm1.Button2Click(Sender: TObject);
var
  i,j: Byte;
  sl : TStringList;
  s : AnsiString;
begin
  sl := TStringList.Create;
  try
    for i:= 0 to ListView1.Items.count -1 do
      begin
        s:= ListView1.Items[i].Caption;
        for j:= 0 to ListView1.Items[i].SubItems.Count -1 do
          s:= s+' ; '+ ListView1.Items[i].SubItems[j];
        sl.add(s);
      end;
    //Anzeigen des ListView Inhalt in einem TMemo
    Memo1.lines.Assign(sl);
  finally
    sl.free;
  end;
end;

end.