getc in Delphi/Pascal

[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;