Сохранение файла

[RemiJK]

Возможно ли выполнить пересохранение файла без загрузки его в memo. Есть текстовый файл при попытке прочитать его в memo или listbox читает только первую строку, если же предварительно открыть его блокнотом и выполнить файл - сохранить, проблема отпадает( т.е. файл читается полностью).

[Zer0]

Что-то Вас немного непонятно... Как считываете в Memo? Зачем "пересохранять"?

[RemiJK]

Считываю следующим образом:

procedure TForm1.btn1Click(Sender: TObject);
var F1: file;
F2: File;
begin
with dlgOpen1, mmo1 do
if Execute then
lines.LoadFromFile(FileName);
end;

читает он только превую строку, а если файл пересохранить прочтет все. или просто выполнить файл - сохранить.

[Serge_Bliznykov]

приведённый Вами файл НЕ ТЕКСТОВЫЙ (после первой строки содержится нулевой байт).
используйте для работы с ним TFileStream (ну или работайте любым другим образом, но как с БИНАРНЫМ файлом).

p.s. что Вы с ним хотите сделать? Может быть, Вы озвучите исходную задачу?
И нам тогда будет легче предложить Вам конкретное решение?...

[Zer0]

Кстати возможно, что обычные

Reset(file); while not eof(file) readln(file,s)

сработают в данном случае, но точно говорить не могу

[RemiJK]

я модифицирую этот файл под другую програмку Scad. Программа для этого уже написана единственное я работал в ней как с текстовым файлом, соответственно приходилось пересохранять исходный файл. делал я это вручную, а теперь пытаюсь описать програмно.

если в кратце мне надо перевести данный файл "Куб1" в текстовый формат.

[RemiJK]

Благодарю за помощь, попробовал Reset(file); while not eof(file) readln(file,s)
ситуация таже.
Можно узнать подробней про TFileStream, возможно ли эту переменную загнать в memo?

[Serge_Bliznykov]

если в кратце мне надо перевести данный файл "Куб1" в текстовый формат.

проверяйте и разбирайтесь:

procedure TForm1.Button1Click(Sender: TObject);
var TS, TSOut : TFileStream;
  buf : array[1..16*1024] of byte;
  count, i : integer;
begin
  TS := TFileStream.Create('Куб1.TXT', fmOpenRead);
  TSOut := TFileStream.Create('Куб1РеальноТекстовый.txt', fmCreate);
  while TS.Position<TS.Size do begin
     count := sizeOf(buf);
     if count > (TS.Size - TS.Position) then
          count := (TS.Size - TS.Position);
     TS.ReadBuffer(buf, count);
     for I := 1 to count do
         if (buf[i]<$20) and (buf[i]<>09)
              and (buf[i]<>$0A) and (buf[i]<>$0D)  then buf[i] := $20;
     TSOut.WriteBuffer(buf, count);
  end;
  FreeAndNil(TS);
  FreeAndNil(TSOut);
  ShowMessage('Конвертация в текст произведена!');
end;