getc in Delphi/Pascal

[EWeiss]

Zitat von Furtbichler:

In nativem, altmodischen, unperformanten und zum Kopf-gegen-die-Wand-hauenden Delphi:

Delphi-Quellcode:

Var
  CharFile : File Of Char;

Begin
  AssignFile(CharFile,'MyFile.TXT');
  Reset(CharFile);
  While not CharFile.Eof Do begin
    myChar := Read(CharFile);
    Writeln(myChar):
  end;
  CloseFile(CharFile);
End;

Verstehe ich voll und ganz aber sie tut erst mal das was sie soll.
Mama? Hast du einen Kaugummi? Nein nimm doch lieber Schokolade.


gruss