Hallo,
mein Programm liest die Dateien aus einem Verzeichnis aus und schreibt sie als Item in eine ComboBox:
Delphi-Quellcode:
procedure TFormSettings.GetProfils;
var
lDir: String;
lSearchRecord: TSearchRec;
begin
ComboProfil.Clear;
lDir := AppDataPath + 'Profiles\';
if FindFirst(lDir + '*.txt', faAnyFile, lSearchRecord) = 0 then
begin
repeat
if (lSearchRecord.Attr <> faDirectory) then
ComboProfil.Items.Add(lSearchRecord.Name);
until
FindNext(lSearchRecord) <> 0;
FindClose(lSearchRecord);
end;
end;
Wenn ich die Anwendung aus führe habe ich aber folgende Probleme:
1. Ich kann kein Element auswählen, also es tut sich nichts wenn ich es aus der Pop-Up-Liste öffne.
2. Wenn ich selbst etwas in die ComboBox schreibe, darf der 1. Buchstabe des Dateinamens nicht der erste Buchstabe sein, den ich eingebe, das heißt meine Testdateien hießen "Test.txt" (
). Also konnte ich nie ein "T" als ersten Buchstaben eintippen...
Bitte Helfen
