Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
1-40404
Raduga
2003-10-01 11:02
2003.10.13
Мерцание при перерисовке


7-40711
__Ed__
2003-07-25 18:47
2003.10.13
Обновление списка оборудования в системе


9-40223
Огыек
2003-02-04 19:01
2003.10.13
ОПРОС!


3-40248
ViKS
2003-09-23 12:17
2003.10.13
Работа с компонентом DBCombobox


7-40705
acsoft
2003-07-30 07:25
2003.10.13
Экспорт из реестра