TXT->Ansistring

Gozd
Дата: 19.06.2009 02:54:26
Процедура перегоняет текстовый файл строку 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 для оформления кода, пожалуйста.
Anatoly Podgoretsky
Дата: 19.06.2009 05:51:04
ORD не наблюдается

--
http://www.podgoretsky.com