VPF::Как можно записать в нетип. файл массив строк

devmstr

Дата 29.1.2005, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Как можно записать в нетипезированый файл массив строк.

Пример:

Var
ar:array of string[100];
begin
assignfile(f1,'c:\delete.txt');
rewrite(f1,1);

setlength(ar,4);

//занесение данных

BlockWrite(f1,ar,4*100);

Работает некоректно.

А по одной не хотса.

--------------------

Think different ©Steve Jobs
user posted image

Zero

Дата 29.1.2005, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Ну можно использовать цикл, но ИМХО какая-то чушь получается. Текстовые данные лучше заносить в типизированый файл.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(f1,'c:\delete.txt');
  rewrite(f1,1);
  setlength(ar,4);
  for i:=0 to 3 do
    begin
      ar[i]:=inttostr(i);
    end;
  for i:=0 to 3 do
    begin
      blockwrite(f1,ar[i],1);
    end;
end;

Добавлено @ 17:49

Цитата(magician @ 29.1.2005, 15:40)

BlockWrite(f1,ar,4*100);
Работает некоректно.

3-ий парамтер это не кол-во строк, а количество выделяемой для записи памяти. (в данном случае 400 байт smile

)

NiJazz

Дата 29.1.2005, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Используй TStringList. У него есть метод SaveToFile, очень удобно.

Snowy

Дата 31.1.2005, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Да нет, тут все верно. Просто вместо
BlockWrite(f1,ar,4*100);
Нужно было написать
BlockWrite(f1,ar[0],4*100);
Код верный, просто нужно было подставить не имя массива, т.к. это указатель, а первый элемент массива. В дальше можно его разом в файл запихивать, хоть 200 строк одним блоком.

NiJazz

Дата 31.1.2005, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Если тебе это нужно для текстового редактора, то

Код


RichEdit1.Lines.SaveToFile('c:\myfule.rtf');

Snowy

Дата 31.1.2005, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

myfule

Вопрос поставлен конкретно - Как можно записать в нетип. файл массив строк. Речь идет о нетипизированном файле, а не текстовом. smile

Незачем морочить людям голову TString'ами. Человек дал код - не работает. Помогли.
Если хочет написать текстовый редактор (в чем я очень сомневаюсь), он так и напишет.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »