Listview Spalten zur Laufzeit?

[celinaw]

:wall:

Es geht leider Trozdem nicht :cry:

Gruß Celina

[kiar]

setze doch mal einen haltepunkt in diese procedure und gehe mal schrittweise durch,

wenn du eine pe version von delphi hast musst du strg und f5 drücken und dir dort die werte anzeigen lassen.

raik

[celinaw]

:shock: mom... das teste ich mal :gruebel:

[celinaw]

Geht irgendwie nix. :gruebel:

Weiß garnicht wie und wo ich nen haltepunkt setzen soll. Komme nicht damit klar. Habe soetwas noch nicht gemacht :oops:

Gruß Celina

[kiar]

Delphi-Quellcode:

procedure TForm1.bSucheClick(Sender: TObject);
var
  bFirst: Boolean;
  i: Integer;
  ListItem : TlistItem;
  col:TListColumn;
begin
......  
    for i := 0 to Spalten-1 do
    // hier werden die spalten namen festgelegt
    begin
       col:=lvAnzeige.Columns.Add
        if CheckListBox1.Checked[i] then
           col.Caption := List_Names[i];
    end;
    while not qrMain.Eof do
    begin
    // hier das item und subitem
      ListItem := lvAnzeige.Items.Add;
          with ListItem do 
               begin
               ListItem.Caption:=
                             qrMain.FieldByName('Order_Type').AsString;
          for i := 0 to Spalten-1 do
            begin
               if CheckListBox1.Checked[i] then
               SubItems.Add(qrMain.FieldByName(SQL_Names[i]).AsString);
            end;
        end;
      end;
      gauge1.progress := gauge1.progress + 1;
    end;
    lvAnzeige.Items.EndUpdate;
    gauge1.progress := 0;
    gauge1.Visible:= false;
  finally
    dbMain.Connected:=False; //Verbindung trennen
    Screen.Cursor := Cursor;
  end;
end;

hallo celina, versuche mal so, alles ungetestet

raik

[celinaw]

Hi,

:shock: WoW.. Danke :love:

Ich werde es mal testen und sehen ob es geht!
Du hörst von mir....

Gruß Celina

[celinaw]

Hi :cry:

Genau das selbe! Es funktioniert immer noch nicht. Irgendwo muss da ein Fehler sein :gruebel:

Gruß Celina

[kiar]

fehlermeldung bitte ?

[celinaw]

:shock: Da gibt es keine Fehlermeldung! :gruebel:

Das Programm läuft mit dem Code.

Wenn ich das

Delphi-Quellcode:

 lvAnzeige.Items.BeginUpdate;

und

Delphi-Quellcode:

 lvAnzeige.Items.EndUpdate;

mal raus lasse, werden zwei von den drei Spaltennamen angezeigt. Mehr passiert nicht!

Gruß Celina

[kiar]

schiesse mal ein screenshot vom ergenis, also die spalten in dem listview.