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

Вниз

Залить фигню типа   Найти похожие ветки 

← →
Deflorator+   (2003-05-22 14:25) [0]

можно???
Запись содержит строковые и целочисленные поля, если поможет...

---

← →
Reindeer Moss Eater   (2003-05-22 14:36) [1]

TStream.WriteBuffer, если поможет

---

← →
Deflorator+   (2003-05-23 15:23) [2]

не помогает

---

← →
Reindeer Moss Eater   (2003-05-23 15:36) [3]

TWriter.WriteString
TWriter.WriteInteger

---

← →
Digitman   (2003-05-23 15:49) [4]

> не помогает


ну и шут с ним !) брось эту затею, не парься, раз "фигня не заливается") ... или почитай про "фигню" повнимательней в хэлпе и в соотв.литературе ... особливо - про тип AnsiString

---

← →
def   (2003-05-29 14:26) [5]

базару нет, записалась, спасибо, но вовсе не через райтбуфер и тем более не через райтстринг\интегер

новая задача - как её оттуда прочитать? проблема с определением размера того, что надо прочитать

---

← →
Reindeer Moss Eater   (2003-05-29 14:42) [6]

Что бы знать как прочитать, надо знать как было записано.
А никто не знает.

---

← →
Digitman   (2003-05-29 14:47) [7]

> def



> вовсе не через райтбуфер и тем более не через райтстринг\интегер


Как "засунул" - не скажу никому) .. но - помогите "вытащить" !!))))

---

← →
Reindeer Moss Eater   (2003-05-29 16:17) [8]

type
TRecPermanentRec = record
f_int : integer;
f_short_str : shortstring;
end;
TRecNonPermamnentRec = record
f_int : integer;
f_str : string
end;
procedure TForm1.Button1Click(Sender: TObject);
var
fStr : TFileStream; Wr:TWriter; Rd:TReader;
PR:TRecPermanentRec; UR:TRecNonPermamnentRec;
begin
PR.f_int :=777; PR.f_short_str:="Hello World!";
with TFileStream.Create("MyRecords.rec",fmCreate) do
try
WriteBuffer(PR,SizeOf(TRecPermanentRec));
finally
Free;
end;
FillChar(PR,SizeOf(TRecPermanentRec),0);
with TFileStream.Create("MyRecords.rec",fmOpenRead) do
try
ReadBuffer(PR,SizeOf(TRecPermanentRec));
finally
Free;
end;
ShowMessage(IntToStr(PR.f_int)+" "+PR.f_short_str);

UR.f_int := 888; UR.f_str := "Hello World!";
try
fStr := TFileStream.Create("MyRecords.rec",fmCreate); Wr:=TWriter.Create(fStr,2048);
Wr.WriteInteger(UR.f_int);
Wr.WriteString(UR.f_str);
finally
Wr.Free;
fStr.Free;
end;
FillChar(UR,SizeOf(TRecNonPermamnentRec),0);
try
fStr := TFileStream.Create("MyRecords.rec",fmOpenRead); Rd:=TReader.Create(fStr,2048);
UR.f_int:=Rd.ReadInteger;
UR.f_str:=Rd.REadString;
ShowMessage(IntToStr(UR.f_int)+" "+UR.f_str);
finally
Rd.Free; fStr.Free;
end;
end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.005 c