Spalten im listview?? + sortierteren + suchauswahl

[magsec_87]

Hallo,

weil Ihr alle schon Spalten gesprochen habt,
wie erstelle ich nun zum Beispiel eine listview mit zwei spalten (inkl einlesen)?

Ich erstelle gerade nämlich ein wörterbuch mit einem Vokal- lern teil!
dazu wollte ich erst mal das Wörterbuch perfekt hinbekommen: doch nun
steh ich vor einem problem, denn ich will auch die listview sortiert haben und gleichzeitig habe ich ein suchfeld (edit)
welches mir mit zunehmender eingabe das passende item in der listview markieren soll!!!

Ich hoffe jemand hat meine erklärung verstanden!!*g* :mrgreen:
Könnt Ihr mir helfen???

Danke

mfg
magsec

[CCRDude]

Delphi-Quellcode:

myListView.ViewStyle := vsReport;
myListItem.SubItems.Add('Zweite Spalte = Erstes SubItem');
myListView.Sorted := true;
myListView.Selected := myListView.FindCaption(0, 'Hallo', false, true, false);

[magsec_87]

Hallo,
danke für die hilfe. :thumb:
Ich habs so probiert und da kommt immer die fehlermeldung: "Dateizugriff Verweigert"

Delphi-Quellcode:

type woerterbuch = record
            de: array[1..5] of string[25];
            en: array[1..5] of string[25];
            end;
     vokabellist = record
            de: array[1..5] of string[25];
            en: array[1..5] of string[25];
            gewesen : boolean;
            klasse : word;
            end;

var
  Form1     : TForm1;
  Datei     : TextFile;
  l         : TListItem;
  datei_name: string;
  data      : woerterbuch;
  woerter   : file of woerterbuch;
  vlist     : file of vokabellist;

  loades    : record
            de      : array[1..5] of string[25];
            en      : array[1..5] of string[25];
            gewesen : boolean;
            klasse  : word;
            end;

Delphi-Quellcode:

 assignFile(woerter,'Datenbank.rec');
  for i:=1 to 5 do
    begin
    data.de[i]:=loades.de[i];
    data.en[i]:=loades.en[i];
    write(woerter,data);
    end;
  reset(woerter);

  with listview1.items.add do
    begin
    if (sprache1_lbl.Caption='Deutsch') then
      begin
      l.Caption:=ltempd;
      l.SubItems.Add(ltempe);
      end;
    if (sprache1_lbl.Caption='Englisch') then
      begin
      l.Caption:=ltempe;
      l.SubItems.Add(ltempd);
      end;

Ich wollte bevor er die Eintragung (einzeleintragun) in die listview schreibt in einer datei (woerter) speichern!
Doch irgendwie find ich den fehler nicht!