Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
:wall: :wall: :wall: Nicht MessageBox, sondern ShowMessage, sorry
Ich bin übrigens weg, falls du mehr hilfe brauchst: PN oder Mail
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
Und das mit der MessageBox? Also was ich meine ist, dass du einen Wert in einer MB ausgibst, anstatt ihn nur der List hinzuzufügen:
for i := 0 to Spalten-1 do //Alle möglichen Spalten durchgehen
begin
if CheckListBox1.Checked then //Soll die gewählte Spalte angezeigt werden?
begin
MessageBox(SQL_Names+': '+qrMain.FieldByName(SQL_Names).AsString);
Dann müsste er dir...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
Ja, den code kenne ich, aber ich will dass du genau den neuen Code ohne das dynamische Spaltenhinzufügen ausprobierst. Sorry, aber mir gehen langsam auch die Ideen aus. Du könntest auch versuchen, jeden Wert den du zur Liste hinzufügst mit einer Messagebox auszugeben, so kannst du sehen ob die Daten auch wirklich von der Datenbank kommen. Es könnte natürlich auch sein dass irgendwo beim Daten...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
Probier mal, diesen Codeteil:
for i := 0 to Spalten-1 do //Spaltenarray durchlaufen und alle "gewählten" Spalten hinzufügen.
begin
if CheckListBox1.Checked then
lv_Anzeige.Columns.Add.Caption := List_Names;
end;
ausukommentieren, und definiere die Spalten manuell, also im Designmodus. Anschließend führe das ganze aus, mich würde interessieren ob er so irgendwelche Werte in...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
Ok, 90000 sind ein ganzer Haufen....und du hast wirklich den gesamten Code richtig zusammenkopiert? Ich musste den ersten Code doch ein bisschen ändern...hab mich ein wenig vertan. Zeigt er die Spaltenüberschriften mittlerweile an oder nicht?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
Ja, die Ausgabe müsste stimmen, das heißt dass dir deine Werte eingefügt werden. Bist du sicher dass in der Datenbank etwas drinnensteht?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
FetchAll müsste alle Datensätze in den lokalen Cache holen. Lass dir mal mit ShowMessage ein Meldungsfenster anzeigen, und zwar jedesmal wenn er ein Feld hinzufügen soll, also unter folgender Zeile im Quellcode:
if CheckListBox1.Checked then //Soll die gewählte Spalte angezeigt werden?
begin
Du fügst einfach
ShowMessage('i='+IntToStr(i));
ein, dadurch siehst du den Zähler, und du...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
30. Apr 2004
const
Spalten = 3;
SQL_Names: array of String = (<Spaltenname1>, <Spaltenname1>, ...);
List_Names: array of String = (<Spaltenname1>, <Spaltenname1>, ...);
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := to Spalten-1 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alcaeus,
29. Apr 2004
const SQL_Names: array of String = (<Spaltenname1>, <Spaltenname1>, ...);
const List_Names: array of String = (<Spaltenname1>, <Spaltenname1>, ...);
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := to Spalten-1 do
begin
CheckListBox1.Items.Add(List_Names);