Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

File ы   Найти похожие ветки 

← →
Budy   (2004-02-16 14:36) [0]

Всех приветствую!
Вот есть у меня:
...
var
s:string;
f:file of string;
begin
...
write(f,s);
end;
Почему ошибка: "Несоответствие форматов"?

---

← →
TUser   (2004-02-16 14:38) [1]

var f:textfile;

assignfile(f,filename);
rewrite(f);
write(f,string);
closefile(f);

---

← →
Radionov Alexey   (2004-02-16 14:40) [2]

f : TextFile;

---

← →
Anatoly Podgoretsky   (2004-02-16 14:46) [3]

А точно такая ошибка, приведи ка точный текст, а не свой перевод.

---

← →
Budy   (2004-02-16 17:29) [4]

Вообще нужная прога такого строения:
...
type
TBruto=record
Lin:string;
Size:integer;
Color:TColor;
end;
...
procedure SaveLines(Br:TBruto;FileName:string);
var
F:File of TBruto;
begin
AssignFile(F,FileName);
Rewrite(F);
Br.Lin:=Br.Lin+" .2004";
Write(F,Br);
CloseFile(F);
end;
...
Потом я пробовал пример, написанный в вопросе:
...
procedure SaveLines;
var
s:string;
f:file of string;
begin
AssignFile(F,"proba.txt");
Rewrite(F);
S:=Edit1.Text;
Write(f,S);
CloseFiel(F);
end;
...
Я разбирался, вродь нужно указывать размер: F:File of String[xx], тогда идет. Но записываемая строка может быть разного рамера, неужто никак не записать строку любого размера.
ЗЫ.Ответ, мол F:TextFile не подходит...

А вообще ошибка такая:
Type "String" needs finalization - not allowed in file type

---

← →
Amoeba   (2004-02-16 17:51) [5]

1. Используй нетипизированный файл.
2. Одним махом запись не записываем.
3. Для записи строки сперва записываешь ее длину, а затем соотв. ей число байтов начиная с первого (цикл здесь не требуется).
4. Как записать остальные поля, полагаю, догадаешься сам.

---

← →
Budy   (2004-02-18 16:29) [6]

Спасибо. Помогло!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c