![]() |
AW: Von Listview1 auf Listview2 zugreifen
Geht das ncht einfacher?
Das ist mir leider viel zu kompliziert :o Von mir auf auch mit if abfragen hauptsache einfach. muss nicht so perfomant sein oder so :) |
AW: Von Listview1 auf Listview2 zugreifen
Dann verwende doch eine Datenbank, da musst Du nicht alles selbst verwalten.
|
AW: Von Listview1 auf Listview2 zugreifen
und wie?
|
AW: Von Listview1 auf Listview2 zugreifen
Wie trägst du die Daten eigentlich in das zweite Listview ein?
Ich kann dir wirklich nur empfehlen, dir die Zeit zu nehmen und die Lösung von DeddyH zu verstehen. In der Zeit, wo du hier auf eine einfachere Lösung wartest, hättest du das schon verstehen können. Du wirst früher oder später mit jeder einfacheren Lösung an Grenzen stoßen und dich ärgern. Wenn du von Anfang an eine ordentliche Struktur hast, hast du es später wesentlich leichter. Trotzdem kann es dir ja vllt helfen, erstmal eine einfache Struktur zu verstehen. Trotzdem solltest du stets versuchen, die Daten (Kalenderwochen und Namen) nicht in den Anzeigen (Listviews) zu speichern sondern in z.B. in einer StringList. Trägt 52 Kalenderwochen in ListView1 ein und erzeugt ein Array mit 52 StringLists. Jede Stringlist steht für eine Kalenderwoche und enthält die entsprechenden Namen.
Delphi-Quellcode:
Beim Klick auf eine Kalenderwoche werden in der Listview2 alle Namen der entsprechenden Stringlist dargestellt.
var
slArray: array of TStringList; procedure TForm1.FormShow(Sender: TObject); var KWCount, i: integer; aListItem : TListItem; aNewColumn : TListColumn; begin ListView1.ViewStyle := vsReport; ListView2.ViewStyle := vsReport; aNewColumn := ListView1.Columns.Add; aNewColumn.Width := ListView1.Width; aNewColumn.Caption := 'Kalenderwochen'; KWCount := 52; //Kalenderwochen) SetLength(slArray, KWCount); for i := 0 to KWCount - 1 do begin slArray[i] := TStringList.Create; aListItem := ListView1.Items.Add; aListItem.Caption := 'KW' + IntToStr(i+1); end; //Beispielnamen slArray[0].Add('Hans'); slArray[1].Add('Peter'); end;
Delphi-Quellcode:
Das ganze ist alles andere als schön aber versuch vllt wirklich erstmal das zu verstehen. Wenn du das verstanden hast, verwende es bitte nicht, und schau dir nochmal das Beispiel von DeddyH an :-)
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var aListItem : TListItem; aNewColumn : TListColumn; i: integer; begin ListView2.Columns.Clear; ListView2.Items.Clear; aNewColumn := ListView2.Columns.Add; aNewColumn.Width := ListView2.Width; aNewColumn.Caption := 'Namen der KW' + IntToStr(Item.Index + 1); for i := 0 to slArray[Item.Index].Count - 1 do begin aListItem := ListView2.Items.Add; aListItem.Caption := slArray[Item.Index].Text; end; end; Gruß Headbucket |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz