Главная страница
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.034 c
9-40223
Огыек
2003-02-04 19:01
2003.10.13
ОПРОС!


3-40282
ViKS
2003-09-22 13:33
2003.10.13
Перенос базы данных на другой компьютер


1-40398
kanych
2003-10-01 03:23
2003.10.13
Ошибка при чтении содержимого файла в буффер


1-40411
tria
2003-09-30 19:29
2003.10.13
Почему Д7 ругается на присвоение значения типиз-й константе?


7-40682
Anatol
2003-08-01 09:03
2003.10.13
Курсор