tString in TTreeView?

[Yc4s1vtz]

Moin Moin,

ich habe ein kleines problem.
ich benutze die Komponente mODBC. diese liefert bei " mDB.GetDatSourceNames" wohl einen tstring
nun möchte ich die ergebnisse in einer TreeView darstellen.

ich habe es schon oft mit einer schleife versucht aber ich habe es noch nicht hinbekommen


treeview1.ITems.Addchild(NIL, cliste.Strings[i]);
frage a
wie mache ich das?

frage b
kann ich mir die schleife ersparen?

[mkinzler]

Bei der Eigenschaft .Strings handelt es sich ume eine StringListe. Deren kompletten Einträge erhältst du mit cliste.Strings[i].Text, cliste.Strings.DelimitedText oder cliste.Strings.CommaText

[Yc4s1vtz]

hmm

ich bekomme einen fehler mit denen ich irgendwie nix anfangen kann

wonach muss ich suchen?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var cdatabase : String;
    cliste    : tStrings;
begin

    mDB.GetDatSourceNames(cliste);
    mDB.GetDatSourceNames(ListBox1.Items);

end;

also das befüllen der Listbox geht
aber der cListe wohl nicht

wenn ich die cliste füllen könnte wäre es super weil dann kann ich ja das treeview damit befüllen

[daywalker9]

cListe := tStrings.create;

[Yc4s1vtz]

hmm

ich bekomme es nicht hin

[daywalker9]

Achso, du musst die Klasse TStringList benutzten. TStrings ist nur eine abstrakte Klasse von der TStringList erbt und alle benötigten Methoden implementiert

[mkinzler]

TStrings ist ein abtrakter Typ. Beim Instantiieren besser einen konkreten ( implementierenden) Nachfolger wie z.B. TStringList verwenden

cListe := TStringList.Create;

[Yc4s1vtz]

hmm

nun gehts

aber wie erfahre ich sowas?
also wie kann ich selber sowas rausfinden?

aber ich habe noch einen fehler ein der schleife
die erreicht da Maximum 14

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var cdatabase : String;
    cliste    : TStringList;
    i         : Integer;
begin

    cListe := tStringList.create;
    mDB.GetDatSourceNames(cliste);

    for i := 0 to cListe.Count do begin
      DataView.Items.Add(NIL, cListe.Strings[i]);
    end;
end;

[mkinzler]

Index 14 wäre auch das 15. Element

[Yc4s1vtz]

ahhh

danke für den hinweis

er zählt ab null