Текущий архив: 2003.10.13;
Скачать: CL | DM;

Вниз

Как загрузить текст из файла в Edit?   Найти похожие ветки 

← →
k@rt ©   (2003-08-10 16:44) [0]

Подскажите, плз, как на АПИ загрузить текст из файла в едит?

---

← →
nikus ©   (2003-08-10 16:58) [1]

C апи работал очень мало... Хотя что я думаю -

CreateFileEx
ReadFile // into Buf
SendMessage // to Edit with Buf
CloseHandle

---

← →
Набережных С. ©   (2003-08-10 18:51) [2]


var
H: THandle;
Buf: PChar;
Size: Cardinal;
begin
H:=CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if H <> INVALID_HANDLE_VALUE then
try
Size:=GetFileSize(H, nil);
if Size > 0 then
begin
GetMem(Buf, Succ(Size));
try
if ReadFile(H, Buf^, Size, Size, nil) then
begin
Buf[Size]:=#0;
if not SetWindowText(EditHandle, Buf) then RaiseLastOSError;
end
else
RaiseLastOSError;
finally
FreeMem(Buf);
end;
end
else
if not SetWindowText(EditHandle, nil) then RaiseLastOSError;
finally
CloseHandle(H);
end
else
RaiseLastOSError;
end;


---

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

Текущий архив: 2003.10.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c