Illegal type in Write/Writeln statement

← →
Tatiana (2003-05-05 18:13) [0]

Kak, rabotaja s Writeln, zapisat v file chto-libo? File ne txt - smeshannyi. Ja pytajus delat:
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
Writeln(f,0);
Writeln(f,"Section");

i pri compilyatsii: illegal type in Write/Writeln statement;
incompatible types:"procedure, untyped pointer, untyped parameter" and "String".
Esli komu-nibud ne slozhno objasnit, chto eto znachit, ja budu ochen blagodarna.

← →
default © (2003-05-05 18:17) [1]

AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
Write(f,0);
Write(f,"Section");
где F - файловая переменная типизированного или нетипизированного
типа
Вопросы!?

← →
MBo © (2003-05-05 18:19) [2]

пример в хелпе по
BlockWrite procedure

← →
default © (2003-05-05 18:20) [3]

вернее только типизированного...
и определись что тебе надо в файле сохранять...
Write(f,0);
Write(f,"Section");
так делать НИЗЯ!
в Дельфёвом хелпе всё отлично поясняется по этой теме!
посмотри

← →
Tatiana (2003-05-05 18:24) [4]

Izvinite pozhaluista, za moju temnost, no netipizirovannyi file znachit, chto ego soderzhanije ne javlyaetsa textom ili kakim-nibud opredelennym tipom dannyh? - togda - netipisirovannyi.

I - help po BlockWrite procedure - gde eto?

← →
MBo © (2003-05-05 18:26) [5]

вызвать хелп, набрать BlockWrite

Кстати, рекомендую TFileStream воспользоваться - удобно

← →
default © (2003-05-05 18:28) [6]

BlockWrite набираешь и F1 на нём дальше по ходу увидишь...
файл - это набор байтов, вся типизация нетипизация это всё "враки" это всё для удобства кодера
в нетипизированный файл можно и строки писать заканчивая последовательность кодов символов(коды размером в байт или два смотря какая кодировка) символами #10#13 (это чтоб потом файл читался в формате .txt)

← →
Tatiana (2003-05-05 18:31) [7]

Ludi, chestnoje slovo, mogla by - posmotrela. U menya help tolko na anglijskom, on kakoi-to strannyi. Esli vy znaete, gde ja mogu naiti eto v seti, podskazhite, pozhaluista.

← →
MBo © (2003-05-05 18:32) [8]

>U menya help tolko na anglijskom, on kakoi-to strannyi
у всех такой, но как-то выкручиваемся ;)

← →
Tatiana (2003-05-05 18:34) [9]

Da, ja poprobovala posmotret BlockWrite i v helpe i cheres F1 - ne poluchaetsa.

← →
MBo © (2003-05-05 18:38) [10]

Татьяна, научись пользоваться хелпом - без этого просто невозможно работать. Ответов на вопросы, которые есть в хелпе, никто давать не будет.

← →
Tatiana (2003-05-05 18:46) [11]

Dopustim, moi Help mne nichem ne moget pomoch (takoje ved byvaet, ja ne ustanavlivala Delphi na etot computer, computer ne moi, no to, chem ja polzujus seichas - edinstvennyj variant dlya menya voobsche hot kak-to rabotat s Delphi). Vopros: mogu li ja naiti chto-nibud v seti?

← →
Dona © (2003-05-05 18:53) [12]

А что Вам вообще нужно записать в этот файл и где потом использовать? Какой файл-то нужен? Если там записи одинаковой структуры (число и строка), то это типизированный файл, если только строки- текстовый...

← →
Anatoly Podgoretsky © (2003-05-05 18:55) [13]

Покажи объявление F: ???

← →
Y (2003-05-05 19:06) [14]

Если файл типизированный, то, например,

type Tz = record // Тип записи файла
Nom: integer;
S: String;
end;
var z: Tz;
f: FILE OF Tz; // Типизированный файл.

........
// Создание файла и запись в него
AssignFile(f, ...);
Rewrite(f);
z.Nom:=1;
z.S:="12345546786";
Write(f,z);
...
Close(f);

← →
Tatiana (2003-05-05 19:12) [15]

File ochen prostoi
0 (intger 0-999)
SECTION (string)
8
ENTITIES
0
POINT
8
POINT
10
5.474(real)
20
3.953....i tak dalee

Objavlenie: var f:File

← →
Anatoly Podgoretsky © (2003-05-05 19:23) [16]

Это нетипизированый файл, для него не применимо Write/WriteLn
Не знаю условий но может тебе надо стедать текстовый файл F: TextFile тогда сможешь пользоваться этими операторами и даже обычным текстовым редактором.

← →
Y (2003-05-05 19:24) [17]

Ничего не понятно...

Судя по всему, именно это и надо, как у АП:
F : file;
замени на
F : text;

← →
Нуу (2003-05-06 01:57) [19]

2 NA © (06.05.03 00:21)
Лучше на TextFile, а то будут "лишние вопросы".
P.S. Не обижайся, пожалуйста, что тебя со мной спутали. Я тут ни при чем.

var F: TextFile; begin AssignFile(F, SaveDialog1.FileName); Rewrite(F); WriteLn(F, "0"); WriteLn(F, "Section"); WriteLn(F, "8"); WriteLn(F, "ENTITIES"); WriteLn(F, "0"); WriteLn(F, "POINT"); WriteLn(F, "8"); WriteLn(F, "POINT"); WriteLn(F, "10"); WriteLn(F, "5.474"); WriteLn(F, "20"); WriteLn(F, "3.953"); CloseFile(F) end;

Короче сохраняй все как текст, потом этот файл можно будет редактировать в блокноте, а при считывание файла делай преобразование типов:

var i: integer; r: real; s: string; F: TextFile; begin AssignFile(F, OpenDialog1.FileName); {$I-} Reset(F); {$I+} if IOResult = 0 then begin i:= StrToInt(ReadLn(F)); r:= StrToFloat(ReadLn(F)); s:= ReadLn(F); end else ShowMessage("Ошибка доступа к файлу " + OpenDialog1.FileName); CloseFile(F) end;

Separator © (06.05.03 06:53)

Ты что?
... WriteLn(F, "0"); --> WriteLn(F,0); ... WriteLn(F, "5.474"); --> WriteLn(F, 5.474); ...end;

Spasibo vsem, u menya chto-to poluchilos. Ja ob"javila f kak TextFile, no poka chto ne uverena na 200%, chto eto to, chto mne nuzhno.

Separator © (06.05.03 06:53)
Да и забыл указать, что читать надо также иначе, попроще

ReadLn(F, I);
ReadLn(F, R));
ReadLn(F, S);

Illegal type in Write/Writeln statement Найти похожие ветки