Код
var
F: TextFile;
S: String;
begin
AssignFile(F, 'Text.txt');
Reset(F);
Read(F, S);
Label1.Caption := S;
end;
AssignFile(F, 'Text.txt');
Reset(F);
st := '';
While not eof(f) do begin
read(f, s); st := st + s + #13#10;
end;
Label1.Caption := st;
function ReadAllFile(const FileName: string): string;
var S: TFileStream;
begin
S:=TFileStream.Create(FileName);
try
S.Reset;
SetString(Result,nil,S.Size);
S.ReadBuffer(pointer(Result)^,S.Size);
finally
S.Free;
end;
end;
function ReadAllFile(const FileName: string): string;
var S: TStringList;
begin
S:=TStringList.Create;
try
S.LoadFromFile(FileName);
Result:=S.Text;
finally
S.Free;
end;
end;