nee glaube der Zeilenumbruch fehlt. Ich werde das mal überprüfen.
Ist den mein Quellcode soweit korrekt?
hab jetzt noch eine for-Schleife eingebaut und hab immer noch das selber Problem.
Hier nochmal mein Code:
Delphi-Quellcode:
uses
SysUtils,
Classes;
var
path: string;
zeilen, i: integer;
datei: TStringList;
begin
writeln('Gebens Sie den Dateipfad an oder Exit um zu beenden:');
Readln(path);
datei:= TStringList.Create;
zeilen:= 0;
if FileExists(path) = true then
begin
writeln('Existiert!');
datei.LoadFromFile(path);
for i:= 0 to datei.Count -1 do
begin
zeilen:= zeilen +1;
end;
writeln('Die Datei hat ' + IntToStr(zeilen) + ' Zeilen!');
end
else
begin
writeln('Existiert nicht!');
end;
if path = 'Exit' then
begin
Halt;
end;
Readln;
end.