созданий файла и запись информации/делфи

[shalgan]

добрый вечер,помогите пожалуйста разобраться с проблемой.При нажатии кнопки баттон1 2 файла создаются,информация в один записывается,но при нажатии баттон2 ничего не происходит, хотя должно ,в файл g записываться все весенние даты из файла f1
вот код кнопки баттон2

procedure TForm1.Button2Click(Sender: TObject);
type
rec=record
day:string[2];
month:string[2];
year:string[4];
end;
var
v:rec;
f:file of rec;
g:textfile;
n,i:integer;
begin
n:=memo1.lines.count;
assignfile(f,'C:\shalgan\f1.txt');
assignfile(g,'C:\shalgan\g1.txt');
reset(f);
rewrite(g);
while not eof (f) do
begin
read(f,v);
if (v.month='03')
or (v.month='04')
or (v.month='05')
then writeln (g,v.day,' ',v.month,' ',v.year);
end;
closefile(f); closefile(g);
end;
end.

[ZX Spectrum-128]

Попробуйте после read вывести содержимое записи
Что то типа
Showmessage(v.month);
С целью проверить, что у вас там читается из файла.

[shalgan]

Сообщение от ZX Spectrum-128

Попробуйте после read вывести содержимое записи
Что то типа
Showmessage(v.month);
С целью проверить, что у вас там читается из файла.

Безымянный.jpg
что то не то выводит(

[ZX Spectrum-128]

прикрепите файл

[shalgan]

f1.txt

Сообщение от ZX Spectrum-128

прикрепите файл

так? или лучше скрином?

[ZX Spectrum-128]

Вы его в блокноте набили? А программа считает, что он file of rec, а отнюдь не текстовый.
Напишите маленькую программу для занесения данных в этот файл.
Можно консольное приложение.

[shalgan]

Сообщение от ZX Spectrum-128

Вы его в блокноте набили? А программа считает, что он file of rec, а отнюдь не текстовый.
Напишите маленькую программу для занесения данных в этот файл.
Можно консольное приложение.

через программу, вот код

procedure TForm1.Button1Click(Sender: TObject);
type
rec=record
day:string[2];
month:string[2];
year:string[4];
end;
var
v:rec;
f:textfile;
g:textfile;
n,i:integer;
begin
n:=memo1.lines.count;
assignfile(f,'C:\shalgan\f1.txt');
assignfile(g,'C:\shalgan\g1.txt');
rewrite(f);
rewrite(g);
for i:=0 to (n-1) do
 begin
  v.day:=memo1.lines[i];
  v.month:=memo2.Lines[i];
  v.year:=memo3.Lines[i];
  writeln(f, v.Day,' ', v.Month,' ', v.year);
 end;
closefile(f);
closefile(g);
end;

[ZX Spectrum-128]

writeln(f, v.Day,' ', v.Month,' ', v.year);

заменить на

write(f,v);

и

 f:file of rec;

должно быть.

[shalgan]

Сообщение от ZX Spectrum-128

заменить на

write(f,v);

и

 f:file of rec;

должно быть.

все исправил,но все равно не хочет копировать ><

[shalgan]

Сообщение от ZX Spectrum-128

заменить на

write(f,v);

и

 f:file of rec;

должно быть.

вот исходный код, для двух кнопок, без учета последнего изменения

procedure TForm1.Button1Click(Sender: TObject);
type
rec=record
day:string[2];
month:string[2];
year:string[4];
end;
var
v:rec;
f:textfile;
g:textfile;
n,i:integer;
begin
n:=memo1.lines.count;
assignfile(f,'C:\shalgan\f1.txt');
assignfile(g,'C:\shalgan\g1.txt');
rewrite(f);
rewrite(g);
for i:=0 to (n-1) do
 begin
  v.day:=memo1.lines[i];
  v.month:=memo2.Lines[i];
  v.year:=memo3.Lines[i];
  writeln(f, v.Day,' ', v.Month,' ', v.year);
 end;
closefile(f);
closefile(g);
end;
procedure TForm1.Button2Click(Sender: TObject);
type
rec=record
day:string[2];
month:string[2];
year:string[4];
end;
var
v:rec;
f:file of rec;
g:textfile;
n,i:integer;
begin
n:=memo1.lines.count;
assignfile(f,'C:\shalgan\f1.txt');
assignfile(g,'C:\shalgan\g1.txt');
reset(f);
rewrite(g);
while not eof (f) do
begin
read(f,v);
if (v.month='03')
or (v.month='04')
or (v.month='05')
then writeln (g,v.day,' ',v.month,' ',v.year);
end;
closefile(f); closefile(g);
end;
end.