| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как загрузить текст из файла в Edit? [D7, WinXP]

k@rt ©   (2003-08-10 16:44:00) 

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

---

Набережных С.   (2003-08-10 18:51:00) [1]


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;


---

nikus   (2003-08-10 16:58:00) [2]

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

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

---

Наверх