david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
26 lines
379 B
ObjectPascal
26 lines
379 B
ObjectPascal
unit u1;
|
|
|
|
function main: String;
|
|
var
|
|
Fl: Integer;
|
|
St: string;
|
|
I: Integer;
|
|
Tmp: Integer;
|
|
begin
|
|
Fl := FileOpen('.\samples\file.txt', fmOpenRead);
|
|
try
|
|
St := '';
|
|
Tmp := 0;
|
|
for i := 1 to 14 do
|
|
begin
|
|
FileRead(Fl, Tmp, 1);
|
|
St := St + Chr(Tmp);
|
|
end;
|
|
ShowMessage(St);
|
|
finally
|
|
FileClose(Fl);
|
|
end;
|
|
end;
|
|
|
|
end.
|