| Цитата(Pentium02 @ 10.12.2006, 14:44) | Значит так сам тип:
| Код |
type
TCOLG = record
Famil: string[100];
Name: string[100];
Otch: string[100];
Group: string[100];
HomePhone: string[100];
MobilePhone1: string[100];
MobilePhone2: string[100];
end;
|
Пишу так:
| Код |
procedure TMainForm.N3Click(Sender: TObject);
var
COLG: TColg;
DataBaseFile: File of TColg;
begin
if SaveDialog1.Execute then
begin
AssignFile(DataBaseFile, SaveDialog1.FileName);
IF FileExists (SaveDialog1.FileName) then
begin
Reset(DatabAseFile);
Seek(DataBaseFile, FileSize(DataBaseFile));
end
else
ReWrite(DataBaseFile);
try
Write(DataBaseFile, colg);
finally
CloseFile(DataBaseFile);
end;
end;
end;
|
Читаю так:
| Код |
procedure TMainForm.N2Click(Sender: TObject);
var
COLG: TColg;
DataBaseFile: File of TColg;
begin
if OpenDialog1.Execute then
begin
AssignFile(DataBaseFile, OpenDialog1.FileName);
Reset(DatabAseFile);
try
if EOF(DataBaseFile) then
Read(DataBaseFile, Colg);
finally
CloseFile(DataBaseFile);
end;
with StudList.Items.Add do
begin
Caption:=Colg.Famil[0];
subitems.Add(colg.Name[0]);
subitems.Add(colg.Otch[0]);
subitems.Add(colg.Group[0]);
subitems.Add(colg.HomePhone[0]);
subitems.Add(colg.MobilePhone1[0]);
subitems.Add(colg.MobilePhone2[0]);
end;
end;
end;
|
При чтение получаются какието кракозябры. Первый раз работаю с типизироваными файлами. Что я не так делаю? |
А от куда, ты считываешь данные для записи в файл.
У меня задание, мне нужно записать с Memo в типизированный файл типа запись.
Тип запись.
| Код |
type
TMyRec = record
number_id: string[200];
sName: string[50];
name: string[50];
lName: string[50];
pol: string[50];
klas: integer;
data_press: string[50];
end;
|
Вот я читаю типизированный файл.
| Код |
procedure TForm1.read_dataClick(Sender: TObject);
var fil: textfile;
a_1, a_2, a_3, a_4, a_5, a_6, a_7:string;
begin
if FileExists('pupil.school') then
begin
//++++++++++++++++++++++++++++++++++++++++++++++++++
assignfile(f, 'pupil.school');
{$I-}
reset(f);
{$I-}
if IOResult<>0 then
begin
ShowMessage('ERROR');
Exit;
end;
n:=0;
Form1.writ_read_data.Clear;
while not EOF(f) do
begin
read(f, rec);
n:=n+1;
a_1:=rec.number_id;
a_2:=rec.sName;
a_3:=rec.name;
a_4:=rec.lName;
a_5:=rec.pol;
a_6:=inttostr(rec.klas);
a_7:=rec.data_press;
Form1.writ_read_data.Lines.Add(a_1);
Form1.writ_read_data.Lines.Add(a_2);
Form1.writ_read_data.Lines.Add(a_3);
Form1.writ_read_data.Lines.Add(a_4);
Form1.writ_read_data.Lines.Add(a_5);
Form1.writ_read_data.Lines.Add(a_6);
Form1.writ_read_data.Lines.Add(a_7);
end;
|
А записать обратно, с Memo в файл, - НЕ ПОЛУЧАЕТСЯ.
ПОМОГИТЕ, плиз. |
)
