Read a file character by character/UTF8: Difference between revisions
Read a file character by character/UTF8 (view source)
Revision as of 14:10, 7 February 2021
, 3 years agoAdded Delphi example
(→{{header|Perl}}: prepend pascal) |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 98:
end
end</lang>
=={{header|Delphi}}==
{{libheader| System.SysUtils}}
{{libheader| System.Classes}}
{{Trans|C#}}
<lang Delphi>
program Read_a_file_character_by_character_UTF8;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
System.Classes;
function GetNextCharacter(StreamReader: TStreamReader): char;
begin
Result := chr(StreamReader.Read);
end;
const
FileName: TFileName = 'input.txt';
begin
if not FileExists(FileName) then
raise Exception.Create('Error: File not exist.');
var F := TStreamReader.Create(FileName, TEncoding.UTF8);
while not F.EndOfStream do
begin
var c := GetNextCharacter(F);
write(c);
end;
readln;
end.</lang>
=={{header|Déjà Vu}}==
| |||