Forum: Datenbanken
Delphi
by omata,
15. Aug 2008
Doppelklick im Objektinspektor auf der Ereignisseite vom TreeView. Dort gibt es das Ereignis.
Forum: Datenbanken
Delphi
by omata,
15. Aug 2008
Hier mal ein Vorschlag...
TForm = class(TForm)
:
private
{ Private-Deklarationen }
FBitmap:TBitmap;
:
:
procedure TForm.FormCreate(Sender: TObject);
Forum: Datenbanken
Delphi
by omata,
15. Aug 2008
Das sollte so eigentlich gehen...
function DeleteCount(Text:string):string;
var Posi:integer;
begin
Result:=Text;
repeat
Posi:=pos(' (', Text);
if Posi > 0 then
delete(Text, 1, Posi);
Forum: Datenbanken
Delphi
by omata,
15. Aug 2008
Hier noch ein anderer Vorschlag...
function DeleteCount(Text:string):string;
var Posi:integer;
begin
Result:=Text;
repeat
Posi:=pos(' (', Text);
if Posi > 0 then
delete(Text, 1, Posi);
Forum: Datenbanken
Delphi
by omata,
15. Aug 2008
Hier mal ein Schnellschuss...
function addChildCount(Node:TTreeNode):integer;
begin
Result:=0;
if assigned(Node) then begin
repeat
if Node.HasChildren then
Node.Text:=Node.Text + ' (' + inttostr(addChildCount(Node.getFirstChild)) + ')';