Hallo,
ich schreibe an einem Programm, dass etwas umfangreicher ist.
Nun habe ich es geschafft, durch google-Suche schon einige Probleme zu lösen, auch des Lesens der Bücher bin ich mächtig. Nun habe ich ein Problem, bei dem ich nicht mehr weiterweiß.
Delphi-Quellcode:
var
fahrerliste : TextFile;
s : string;
i : integer;
begin
ComboBox1.Items.Clear;
i:= 0;
AssignFile(fahrerliste,'C:\Users\ich\Desktop\abrechnung\data\dri\dri.txt');
Reset(fahrerliste);
try
while not EOF(fahrerliste) do begin
ReadLn(fahrerliste, s);
i:= i + 1;
end;
finally
CloseFile(fahrerliste);
end;
s:= IntToStr (i);
with ComboBox1 do begin
with Items do begin
Add('Fahrerkürzel...');
Add('Stammfahrer1');
Add('Aushilfe1');
Add('Reserve1');
Add(s);
end;
ItemIndex := 0;
end;
Closefile(fahrerliste);
end;
Nach dem Einfügen des Reset-Befehls ging der Fehler 104 weg, der mich vorher lange aufgehalten hat.
Nun ist das Problem, dass die Meldung "Datei nicht vorhanden" kommt.
Das kann aber gänzlich nicht sein, weil ich sie extra dafür erstellt habe.
Ich würde mich über konstruktive Hinweise, und auch Kritik hinsichtlich der verwendeten Funktionen freuen.
Danke!
Btw: noch nicht gefunden habe ich, dass ich als Ort nur "data->dri\dri.txt" eingeben muss, damit das Programm nicht nur auf meinem Rechner läuft...