Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
ВнизКак преобразовать PChar в String? Найти похожие ветки
← →
CrowD (2002-10-24 20:57) [0]Привет, All!
подскажите вот я считал из файла
~~~~~~~~~
.....
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer;
s: String;
.....
iFileHandle := FileOpen(FileName, fmOpenRead);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(5 + 1));
iBytesRead := FileRead(iFileHandle, Buffer, 6);
FileClose(iFileHandle);
s := string(Buffer);
ShowMessage(s);
.....
~~~~~~~~~
врывает на s := string(Buffer) говорит что нитуда в памяти обращается, что делать, народ?
← →
AL2002 (2002-10-24 21:23) [1]Как-то это всё ты жестоко делаешь.
← →
TTCustomDelphiMaster (2002-10-24 21:40) [2]Во первых по теме. Преобразование PChar в String производится простым присваиванием (s := ch;).
Во вторых по содержанию. Ваш код это просто "минное поле", на каждом шагу может быть допущена ошибка, что и было вами сделано.
Во избежание неприятностей работайте сразу со строкой:
SetLength(s, 6);
iBytesRead := FileRead(iFileHandle, s[1], 6);
FileClose(iFileHandle);
ShowMessage(s);
Можно еще почитать: F1 - PChar local variables - Passing a local variable as a PChar
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c