Forum: Netzwerke
Delphi
by japetos,
20. Sep 2005
ich hab das jetzt so:
begin
if IdFTP1.Connected then try
finally
directory := KAAdoTable1.Fields.Text;
//Dir := directory;
Dir := 'C:\neu';
Label1.Caption := 'Selected Directory: ' + dir;
Screen.Cursor := crHourGlass;
TreeView1.Items.BeginUpdate;
Forum: Netzwerke
Delphi
by japetos,
20. Sep 2005
Nee, sorry, raff ich nicht.
Bin zu bloed dafuer.
Danke trotzdem. Werde nochmal die SuchOption verwenden.
:???:
Forum: Netzwerke
Delphi
by japetos,
20. Sep 2005
Danke, aber da sind keine Source, nur EXE
Forum: Netzwerke
Delphi
by japetos,
20. Sep 2005
Folgedes habe ich:
procedure TForm1.Button6Click(Sender: TObject);
var
Node: TTreeNode;
Path: string;
Dir, s: string;
begin
Dir := 'C:\d7\';
Screen.Cursor := crHourGlass;