getc in Delphi/Pascal

[EWeiss]

Zitat von Luckie:

Und warum die Mühe und der Umstand? Letztendlich ist es eine Fehlerquelle mehr im Code und wartbarer wird er dadurch auch nicht unbedingt. Für mich spricht irgendwie alles dagegen, was du da machst.

Ja!
Verstehe ich voll und ganz aber sie tut erst mal das was sie soll.
Das ist nichts für die Dauer sondern nur zum testen.

gruss

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

[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

[Furtbichler]

Izmir klar, das Du eine Lösung hast, aber Du fragtest nach getc in Delphi und da wollte ich einfach mal den ollen Code präsentieren.