Hallo,
TStringArray2 -> array of array of String uiui
Hast du deinen CBF-Code mal ausgeklammert ?
er sieht aber eigentlich OK aus.
Könnte es sein, dass man hier WideString / AnsiString nehmen muss
Du hast ja D2009, viell. hatte der Autor eine kleinere Delphi-Version. ?
Das mit dem Abstürzen bekommst du übrigens mit try/except hin.
Delphi-Quellcode:
procedure TForm1.CBF(data: TStringArray2);
var
X,Y : Integer;
txt : String;
txt1 : String;
begin
for X := Low(data) to High(data) do
begin
txt := '';
for Y := Low(data[X]) to High(data[X]) do
begin
txt1:= data[X,Y];
txt := txt + ' > ' + txt1;
end;
ListBox1.Items.Add(txt);
end;
end;
Das läßt sich besser Debuggen.
Ev. hilft auch ein SetLength (auf txt und txt1).
Intern (TEADSObject.DirectorySearch) wird ja auch mit SetLength gearbeitet.
Heiko