Hallo Delphi coder,
Ich habe ein kleines Problem mit einer ausgabe von Daten aus meiner
Access DB. Ich bin noch neuling in Delphi bzw. Object Pascal und weiß nun nicht mehr weiter
Also meine
DB ist folgendermaßen aufgebaut:
http://people.freenet.de/funjoy/screenDB.gif
So nun soll er mir alle Daten in ein TreeView ausgeben und richtig ein sortieren. Dazu habe ich folgende Funktion geschrieben:
Delphi-Quellcode:
function TfrmAppOption.entrys(i: Integer): TTreeNode;
var st:
String;
x: Integer;
en: TTreeNode;
begin
SQL.Active := false;
SQL.CommandText := '
SELECT*FROM app WHERE einordnung='+IntToStr(i)+'
ORDER BY sort';
SQL.Active := true;
while not SQL.Eof
do
begin
if SQL.FieldByName('
einordnung').AsInteger = 0
then
begin
with Tree.Items
do
begin
st :=
SQL.FieldByName('
appname').AsString;
entrys := Add(
nil,st);
end;
end
else
begin
with Tree.Items
do
begin
st :=
SQL.FieldByName('
appname').AsString;
en := Tree.Items.GetFirstNode;
entrys := ADDChild(en,st);
end;
end;
entrys(
SQL.FieldByName('
id').AsInteger);
SQL.Next;
end;
end;
die Funktion rufe ich dann über eine OnShow Methode auf:
Delphi-Quellcode:
procedure TfrmAppOption.TabSheet1Show(Sender: TObject);
begin
Tree.Items.Clear;
entrys(0);
end;
Nun Compliere ich das Ganze und Schau mir das Ergebnis an doch er gibt mir nur folgendes Aus:
Java Script
- Alert Box
Warum geht er nicht alles durch und liefert folgendes Ergebnis:
Java Script
- Alert Box
- PopUp
PHP
- Echo
Bitte Um Hilfe
MfG Funjoy