Загрузить текст

← →
Prov (2003-07-21 10:26) [0]

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

procedure LoadFile;
var SelectedFile: TextFile; Str, Path: AnsiString; i: integer; CharStr: PChar;
begin
AssignFile(SelectedFile, Path);
reset(SelectedFile);
while not EOF(SelectedFile) do
begin
Read(SelectedFile, str);
SetWindowText(hEdit, PAnsiChar(str));
end;
( SelectedFile) Доброго времени суток, мастера.
Помгоите плиз, разобраться.
Вот код:

procedure LoadFile;
var SelectedFile: TextFile; Str, Path: AnsiString; i: integer; CharStr: PChar;
begin
AssignFile(SelectedFile, Path);
reset(SelectedFile);
while not EOF(SelectedFile) do
begin
Read(SelectedFile, str);
SetWindowText(hEdit, PAnsiChar(str));
end;
CloseFile(SelectedFile);
end;

Помогите, плиз.

Дело в том, что hEdit - Едит, созданный на АПИ!
И нужно в него загрузить текстовый файл. Может кто-нить предложит другой код ?
Буду рад любым подсказкам и кодам :))
PS: программа написана на АПИ, без использования VCL компонентов

← →
__Ed__ (2003-07-21 10:43) [1]

Можно FileStream создать и читать из него в любой буфер, напр. в ту же строку.
Выглядит примерно так:
...
var
fs : TFileStream;
p : pointer;
begin
sf := TFileStream.Create("FileName", fmOpenRead);
GetMem(p, fs.Size); ( p^, fs.Size) Можно FileStream создать и читать из него в любой буфер, напр. в ту же строку.
Выглядит примерно так:
...
var
fs : TFileStream;
p : pointer;
begin
sf := TFileStream.Create("FileName", fmOpenRead);
GetMem(p, fs.Size); // получаем память
fs.Read(p^, fs.Size); // читаем из файла
// тут делаешь то что тебе надо со строкой, напр.
SetWindowText(hEdit, PAnsiChar(p^));
// только учитывай что, возможно, строка должна заканчиваться
// символом #0
FreeMem(p, fs.Size); // освобождаем память
fs.Free; // освобождаем файловый поток
end;

Может тебе это и пригодиться, но для таких простых целей проще тот код что ты написал. Если что, спрашивай по мылу или онлайн:

ICQ: 932623
MSM: serdyuk@hotmail.com
IRC: irc.wenet.ru #Room_137 nick:_Ed_

Загрузить текст Найти похожие ветки