Чтение и дописывание

← →
damx © (2003-05-03 00:08) [0]

Как вывести строку, которая является окончанием файла начиная с такого-то (n) байта и до конца файла?

Как дописать к файлу строку из n символов, то бишь приклеить к ее концу?

← →
Anatoly Podgoretsky © (2003-05-03 00:18) [1]

Append

← →
Damx © (2003-05-03 00:26) [2]

Поподробнее, если не трудно...

← →
Yanis © (2003-05-03 00:29) [3]

В справку загляни, там уж очень подробно.

fucntion GetString(FileName : string; N : dword) : string;
var
f : hFile;
X : dword;
buf : pointer;
begin
Result:="";
CreateFile(pchar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
if f <> INVALID_HANDLE_VALUE then
begin
SetFilePointer(f, N, nil, 0);
buf:=VirtualAlloc(nil, N + 1, MEM_COMMIT, PAGE_READWRITE);
ReadFile(f, buf^, N, X, nil);
Result:=StrPas(buf);
VirtualFree(buf, 0, MEM_RELEASE);
CloseHandle(f);
end;
end;

function AddString(FileName, S: string) : boolean;
var
f : hFile;
X : dword;
buf : pointer;
begin
Result:=0;
CreateFile(pchar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
if f <> INVALID_HANDLE_VALUE then
begin
SetFilePointer(f, 0, nil, 2);
buf:=VirtualAlloc(nil, N + 1, MEM_COMMIT, PAGE_READWRITE);
StrPCopy(buf, S);
WriteFile(f, buf^, Length(S), X, nil);
Result:=(X = Length(S));
VirtualFree(buf, 0, MEM_RELEASE);
CloseHandle(f);
end;
end;

Append(F);

Чтение и дописывание Найти похожие ветки