StringGrid := Listview | Komponenten Inhalt kopieren

[Sharky]

Hai Plague,

Zitat von Plague:

...Da ich es nicht hinbekommen habe, .... in einer Listview Komponente anzeigen zu lassen, ....

Warum geht das denn nicht bei Dir?

Ich mache das in einem Projekt z.B. so:

Delphi-Quellcode:

procedure TFRM_Main.ShowLaender;
var
  LI: TListItem;
begin
  with DataModule1.ZReadOnlyQuery1 do
  begin
    close;
    SQL.Text := 'SELECT * FROM laender ORDER BY name_de';
    open;
    ListView1.Items.BeginUpdate;
    Listview1.Items.Clear;
    while not (EOF) do
    begin
      LI := Listview1.Items.Add;
      LI.ImageIndex := 0;
      LI.Data := Pointer(FieldByName('id').AsInteger); // ID speichern!
      LI.Caption := FieldByName('name_de').AsString;
      LI.SubItems.Add(FieldByName('kurzzeichen').AsString);
      LI.SubItems.Add(FieldByName('name_en').AsString);
      LI.SubItems.Add(FieldByName('lkz').AsString);
      Next;
    end;
    ListView1.Items.EndUpdate;
    close;
  end;
end;