habe da ein Problem beim Einlesen von Verzeichnissen.
Das einlesen klappt soweit, jedoch werden auch die Verzeichnisse . und .. mit eingelesen, die ich aber nicht gebrauchen kann. Folgenden Code verwende ich dafür:
if DirectoryExists(GLWUSER) then
begin
//...hin wechseln...
ChDir(GLWUSER);
//...cobo leeren...
CoBo_USER.Items.Clear;
//Verzeichnis vorhanden?
if FindFirst('*.*', faDirectory, UserXX)=0 then
begin
//...eintragen und ...
if DirectoryExists(UserXX.Name) then
CoBo_User.Items.Add(UpperCase(UserXX.name));
//...solage nach Verzeichnissen suchen bis alle eingetragen
CoBo_User.Enabled:=True;
while FindNext(UserXX) = 0 do
begin
if DirectoryExists(UserXX.Name) then
CoBo_User.Items.Add(UpperCase(UserXX.name));
end;
//schließen von find
FindClose(UserXX);
Ich hoffe mir kann jemand weiterhelfen.
Danke lorus