файлы открывались через OPendialog.

[yana1996]

помогите переделать этот код , чтобы файлы открывались через OPendialog.

var
 S: array [0..4] of String;
 F,F1: File of Integer;
 N,i,temp,len: integer;
 
begin
  Write('S0: ');
  Readln(S[0]);
 
  Write('N: ');
  Readln(N);
 
  Assign(F,S[0]);
  ReWrite(F);
 
  Write(F,N);
 
  For i:=1 to N do
   begin
    Write('S',i,': ');
    Readln(S[i]);
   end;
 
  For i:=1 to N do
   begin
    Assign(F1,S[i]);
    Reset(F1);
    len:=0;
    while not eof(F1) do
     begin
      inc(len);
      Read(F1,temp);
     end;
    Close(F1);
    Write(F,len);
   end;
 
   For i:=1 to N do
   begin
    Assign(F1,S[i]);
    Reset(F1);
    len:=0;
    while not eof(F1) do
     begin
      Read(F1,temp);
      Write(F,temp);
     end;
    Close(F1);
   end;
end.

Само задание:
Дана строка S0S0, целое число NN (≤4)(≤4) и NN файлов целых чисел с именами S1,...,SNS1,...,SN. Объединить их содержимое в новом файле-архиве с именем S0S0, используя следующий формат: в первом элементе файла-архива хранится число NN, в следующих NN элементах хранится размер (число элементов) каждого из исходных файлов, а затем последовательно размещаются данные из каждого исходного файла.

[FaTaL]

Ну и где вопрос то? Задача вроде решена.

[vlad1389]

if (OpenDialog1.Execute) and (FileExists(OpenDialog1.FileName) then
Assign(F1,OpenDialog1.FileName);

Идея ясна? В свой код вставишь сама.

[yana1996]

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

Ну и где вопрос то? Задача вроде решена.

Мне нужно переделать код этот в Графический интерфейс , чтобы файлы открывались через OpenDialog

[vlad1389]

yana1996 А моё решение было проигнорировано видимо потому, что ожидался готовый код?

[yana1996]

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

yana1996 А моё решение было проигнорировано видимо потому, что ожидался готовый код?

Почему же вы так ) я вставила ваш код , файлы открывает но формирует он не как в условиях

[northener]

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

Почему же вы так ) я вставила ваш код , файлы открывает но формирует он не как в условиях

Значит тот код, который вы привели в топике работает не правильно. Так зачем же вы его приводили?

[vlad1389]

Почему же вы так )

А как иначе если дано верное решение, а реакция нулевая? Я кстати специально пропустил один операнд, присутствующий в твоём коде, дабы проверить внимательность.