Скачать: CL | DM;

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

← →
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]

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

---

← →
Morfein ©   (2003-05-03 09:21) [4]

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;

---

← →
Anatoly Podgoretsky ©   (2003-05-03 10:03) [5]

Append(F);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c