Zitat von
DGL-luke:
:gruebel:
Ich konsultiere mal schnell die Delphi-Hilfe... scheint bei mir alles richtig gecodet zu sein.
...
Versuchs mal so, anstatt deiner ganzen assigngefilerei:
Delphi-Quellcode:
procedure TestAFile(fname: string);
var
strings: TStringList;
const
Msgs= array[false, true] of string: ('Unix-File','Linux-File');
begin
strings := TStringList.Create;
strings.LoadFromFile(fname);
ShowMessage(Msgs[HasDOSLineBreaks(strings.Text)]);
strings.Free;
end;
Hallo Luke,
es ist in diesem Forum offensichtlich Mehrheitsmeinung, man müsste jede Datei erst mal komplett in den Speicher lesen, bevor man sich überhaupt Gedanken macht, was damit zu tun wäre. Ich werde mich aber bis an mein Lebensende dagegen wehren, das als intelligent zu betrachten. Meinetwegen haltet mich für einen Dinosaurier.
Im vorliegenden Fall ist meiner Meinung nach jede Lösung, die weiter liest als bis zum ersten Zeilenende, zwar möglicherweise korrekt, aber dumm.
Gruss Reinhard