Дан файл вещественных чисел

[yana1996]

помогите переделать в графический интерфейс чтобы файлы файлы открывались через openDialog

var
  F_in,F_out: file of Real;
  len,i,j,i2,j2:integer;
  Cell:Real;
  Name:String;
 
begin
 Write('File In: ');
 Readln(Name);
 Assign(F_in,Name);
 
 Write('File out: ');
 Readln(Name);
 Assign(F_out,Name);
 
 Reset(F_in);
 len:=0;
 While (not eof(F_in)) do
  begin
   Read(F_in,Cell);
   inc(len);
  end;
 Close(F_in);
 
 i2:=1;
 while (len>0) do
  begin
   len:=len-i2;
   inc(i2);
  end;
 len:=i2-1;
 
 Reset(F_in);
 Rewrite(F_out);
 I2:=1;
 J2:=0;
 While not eof(F_in) do
  begin
   inc(j2);
   Read(F_in,Cell);
   Write(F_out,Cell);
   if j2=i2 then
    begin
     Cell:=0;
     for j2:=i2+1 to len do Write(F_out,Cell);
     inc(i2);
     j2:=0;
    end;
  end;
 Close(F_in);
 Close(F_out);
end.

Само задания :
Дан файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы (по строкам). Создать новый файл, содержащий все элементы данной матрицы (по строкам).

[type_Oleg]

Надо посадить на форму компоненты OpenDialog, SaveDialog и Button
И весь код будет в обработчике TForm1.Button1Click

И вот это :

 begin
 Write('File In: ');
 Readln(Name);
 Assign(F_in,Name);
 
 Write('File out: ');
 Readln(Name);
 Assign(F_out,Name);

заменить на это:

 begin
 if OpenDialog1.Execute
  then AssignFile(F_in,OpenDialog1.FileName)
  else Exit;
 if SaveDialog1.Execute
  then AssignFile(F_out,SaveDialog1.FileName)
  else Exit;

А дальше - вроде все то же, что у вас.

[yana1996]

Сообщение от type_Oleg

Надо посадить на форму компоненты OpenDialog, SaveDialog и Button
И весь код будет в обработчике TForm1.Button1Click

И вот это :

 begin
 Write('File In: ');
 Readln(Name);
 Assign(F_in,Name);
 
 Write('File out: ');
 Readln(Name);
 Assign(F_out,Name);

заменить на это:

 begin
 if OpenDialog1.Execute
  then AssignFile(F_in,OpenDialog1.FileName)
  else Exit;
 if SaveDialog1.Execute
  then AssignFile(F_out,SaveDialog1.FileName)
  else Exit;

А дальше - вроде все то же, что у вас.

Спасибо получилось )

[yana1996]

Сообщение от type_Oleg

Надо посадить на форму компоненты OpenDialog, SaveDialog и Button
И весь код будет в обработчике TForm1.Button1Click

И вот это :

 begin
 Write('File In: ');
 Readln(Name);
 Assign(F_in,Name);
 
 Write('File out: ');
 Readln(Name);
 Assign(F_out,Name);

заменить на это:

 begin
 if OpenDialog1.Execute
  then AssignFile(F_in,OpenDialog1.FileName)
  else Exit;
 if SaveDialog1.Execute
  then AssignFile(F_out,SaveDialog1.FileName)
  else Exit;

А дальше - вроде все то же, что у вас.

а как вот с этим проделать тоже самое ?

uses crt;
const nmax=20;
var f,g:file of real;
    n,i,j:integer;
    x,y:real;
begin
clrscr;
randomize;
assign(f,'matr1');
rewrite(f);
assign(g,'matr2');
rewrite(g);
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
{пишем нижнюю треугольную матрицу}
for i:=1 to n do
for j:=1 to i do
 begin
  x:=10*random;
  write(f,x);
 end;
{прочитаем}
reset(f);
writeln('Исходный файл:');
i:=1;{номер строки}
j:=0;{номер столбца}
while not eof(f) do
 begin
  j:=j+1;{считаем}
  if j<=i then{если не перешли главную диагональ}
   begin
    read(f,x); {читаем элемент}
    write(x:0:2,' ');{выводим в строку}
    write(g,x);{пишем в новый файл}
   end
  else{если перешли}
   begin
    while j<=n do {до конца строки}
     begin
      y:=0;
      write(g,y);{пишем в новый файл ноли}
      j:=j+1;
     end;
    i:=i+1;{новая строка}
    j:=0; {обнулим счетчик в строке}
    writeln;
   end;
 end;
writeln;
close(f);{закроем 1 файл}
reset(g); {прочитаем новый с выводом по строкам}
writeln('Новый файл:');
j:=0;
while not eof(g) do
 begin
  read(g,x);
  write(x:0:2,' ');
  j:=j+1;
  if j=n then
   begin
    j:=0;
    writeln;
   end;
 end;
close(g);
readln
end.