- Function TCompiler.GetCharacter: Char;
- var
- Ch: Char;
- begin
- if not EoF(FInFile) then
- BlockRead(FInFile, Ch, 1)
- else
- Ch := ' ';
- Ch := Upcase(Ch);
- if Ch = #13 then inc(FLine);
- if Ord(Ch) < Ord(' ') then Ch := ' ';
- Result := Ch;
- end;
[gelöst]ZugriffsverletzungModerator: DGL-Team
|