Процедура перегоняет текстовый файл строку ansistring.Но когда я пытаюсь обработать результат( с помошью ord взять номер ansi символа) получаю бред.Вообщем помогите пожалусто найти рабочую аналогичную процедуру или отладить эту.
function TTexts.ReadFromFile(FileName: string): ansistring ;
var S: Ansistring ;
iFileHandle,iFileLength: Integer;
Buffer: PChar;
begin
try
iFileHandle := FileOpen(FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
S:=Buffer;
finally
FreeMem(Buffer);
end;
Result:=S;
end;
Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста. |