BlockWrite

← →
pvasya (2002-10-03 13:52) [0]

Я в замешательстве. Hаверное я забыл паскаль.

procedure WriteToFile;
var f:file;
a:string;
begin
Assign(f,"d:\1.aaa");
Rewrite(f,1);
a:="test";
BlockWrite(f,a,Length(a));
Close(f);
end;

В паскале 7.0 записывает в файл test, в Delphi6 -- ерунду. Объясните мне убогому как в Delphi писать стринги в файл. Да, мне нужна файловая переменная типа file, ибо файл нетипизированный.

← →
MBo (2002-10-03 13:57) [1]

BlockWrite(f,a[1],Length(a));

← →
Kaban (2002-10-03 13:59) [2]

Кстати,
To avoid scope conflicts, AssignFile replaces the Assign procedure that was available in previous versions of Delphi. However, for backward compatibility Assign is still available.

← →
pvasya (2002-10-03 14:06) [3]

А как тогда писать в файл структуру такого типа?

TActionList=Record
typeAct:byte;
strVal:String;
strName:String
iVal:integer;
aDate:TDateTime;
aTime:TDateTime;
end;

← →
MBo (2002-10-03 14:10) [4]

каждое поле по отдельности.
Либо используй короткие строки strval:string[10]

← →
Anatoly Podgoretsky (2002-10-03 14:11) [5]

Или
strVal:String[255];
strName:String[255]"
или
strVal:ShortString;
strName:ShortString"

Вообще приходи в ru.delphi.chainik

← →
pvasya (2002-10-03 14:12) [6]

я так и думал, но мнея не устраивает стоки ограниченной длины поэтому прийдется ввести переменную указвающую длину строки для последующего корректного считывания

← →
Smithson (2002-10-03 14:17) [7]

для ShortString такая перменная уже есть - S[0].
Посему - blockwrite(F,S[0],Length(S)+1,i).
При считывании - blockread(F,Ch, 1,i);
blockread(F,S[1],Ch,i);
S[0] := Ch; // Ch: Char;

← →
Anatoly Podgoretsky (2002-10-03 14:38) [8]

Или
strVal:String[255];
strName:String[255]"
или
strVal:ShortString;
strName:ShortString"

Вообще приходи в ru.delphi.chainik

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