Проблемы с записью файла в Delphi - есть ответ

ENikk, 378 просмотров

Знатоки, нужна ваша помощь.
Имеется программа которая из буфера записывает в бинарный файл данные (числа), нужно что бы эти данные записались в просто текстовый файл, что бы там были нужные числа (которые потом можно было запихнуть в эксель для построения графика)
собственно
var
FileHandle: Integer;
...........

.............
begin
if WaitingForRequestCompleted(IoReq[RequestNumber].Overlapped^) then
begin
Inc(Counter);
if FileWrite(FileHandle, Buffer[RequestNumber][0], DataStep*sizeof(SHORT)) = -1 then ReadThreadErrorNumber := $5;
end;
end;

Примечание:
Сейчас дичайше туплю, не могу особо въехать
"ЗаписатьВФайл" это типа Write?

Ответы:

Удачи =)

Примерно так:
type
PShortArray = ^TShortArray;
TShortArray = packed array[0..9999999] of SHORT;
//...
var
psa: PShortArray;
i: Integer;
//...
psa := @Buffer[RequestNumber][0];
for i := 0 to DataStep - 1 do
ЗаписатьВФайл(psa^[i]);

Андрей Архангельский

Var
FlOut : TextFile;
begin
AssignFile(flOut,Path+FileName); Rewrite(flOut);

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.