Опять проблема со СТРОКАМИ, чтение

← →
jen (2004-02-12 11:28) [0]

Спасибо огромное, всем кто помог с записью строк, но теперь не могу нормально проситать, хелпните плиз.
{Прошу сильно по голове не бить )))}

********************
type
rec=packed record
str1:string[45];
int1:integer;
int2:integer;
cur1:Currency;
cur2:Currency;
end;

procedure TForm1.Button1Click(Sender: TObject);{записываем строку в файл}
var
crec:rec;
frec: file of rec;
fname:string;

begin
FillChar(crec, sizeof(crec), Ord(" "));
fname:="2rt.txt";
crec.str1 :=Edit3.Text ;
crec.int1 :=Strtoint(Edit1.Text );
crec.int2 :=Strtoint(Edit1.Text );
crec.cur1 :=PBNumEdit1.AsCurrency ;
crec.cur2 :=PBNumEdit1.AsCurrency ;
assignfile(frec,fname);
if fileexists(fname) then
reset(frec) else rewrite(frec);
seek(fRec,0);
write(frec,crec);
closefile(frec);
end;

procedure TForm1.Button2Click(Sender: TObject);{Пытаемся прочитать строку из файла}
var
crec:rec;
frec: file of rec;
fname:string;

begin

fname:="2rt.txt";
Edit3.Text := crec.str1;
Edit1.Text :=Inttostr(crec.int1);
Edit1.Text :=Inttostr(crec.int2);
PBNumEdit1.AsCurrency := crec.cur1;
PBNumEdit1.AsCurrency :=crec.cur2 ;

assignfile(frec,fname);
reset(frec);
seek(fRec,0);
read(frec,crec);
closefile(frec);
end;

********************

← →
Тимохов (2004-02-12 11:36) [1]

В чем выражается невозможность прочтения?
На фига запись #32 заполнять (т.е. делать FillChar(crec, sizeof(crec), Ord(" "))) ?

← →
jen (2004-02-12 11:38) [2]

> Тимохов, меня вчера тут так научили... и самое главное помогло... иначе в строку может всякий мусор писаться.

← →
Тимохов (2004-02-12 11:39) [3]

Про пробел понял...

Про

> В чем выражается невозможность прочтения?

не понял?
Какая ошибка?

← →
jen (2004-02-12 11:41) [4]

> Тимохов, проблема в том, что при чтении из файла в форму поподает абсолютно не та инфа, что записывалась, она больше похожа на тот мусор, от которого я вчера избавлялся при записи.

← →
Тимохов (2004-02-12 11:43) [5]

Ну логично ведь - сначала пишешь в форму, потом читаешь :)))

> fname:="2rt.txt";
> Edit3.Text := crec.str1;
> Edit1.Text :=Inttostr(crec.int1);
> Edit1.Text :=Inttostr(crec.int2);
> PBNumEdit1.AsCurrency := crec.cur1;
> PBNumEdit1.AsCurrency :=crec.cur2 ;
>
> assignfile(frec,fname);
> reset(frec);
> seek(fRec,0);
> read(frec,crec);
> closefile(frec);
> end;

← →
TUser (2004-02-12 11:44) [6]

http://www.delphikingdom.com/lyceum/seminar.asp?partID=4&LessonID=14

Вчера научили - так ты вчера в файл писал. А теперь из файла в память тянешь, вся память выделенная под crec заполнится так или иначе.
И действительно - что значит не читается? Как ты это определяешь? Т.е. что у тебя в проге вместо
********************

PS. После прочтения данных из файла текст в эдитах менятсья не должен. *)

← →
jen (2004-02-12 11:45) [7]

> Тимохов, ??? а в чем прикол???

← →
jen (2004-02-12 11:47) [8]

>TUser, а он(текст) после нажатия на Button2 меняется, тока на белиберду...

← →
Тимохов (2004-02-12 11:49) [9]

> jen © (12.02.04 11:45) [7]

Скажи можно быть сначала пьяным до того как выпьешь?
Аналогично, нельзя использовать данные до того, как их прочитаешь? Посмотри внимательно на Button2Click - тебя там нично не удивляет?

← →
TUser (2004-02-12 11:49) [10]

Раскрой свой пассворд.

← →
jen (2004-02-12 11:52) [11]

> Тимохов, прости дурака, намек понял, исправил, все работает)))

Опять проблема со СТРОКАМИ, чтение Найти похожие ветки