Задача на тему "Файлы".

[Ольчик]

Помогите пожалуйста с задачкой!!!
Даны два файла целых чисел одного размера с именами Name1 и Name2. Создать текстовый файл с именем NameT, содержащий изображения этих чисел, расположенные в два столбца шириной по 30 символов: первый содержит числа из файла Name1, второй — из файла Name2. В начале и конце каждой строки текстового файла ввести разделитель " | " . Числа выравниваются по левому краю столбца.

Как вывести в два столбца, даже не представляю!!!!!

[Min]

чето я не понял...... разделитель между ними или по краям?
и одинаковый размер у чисел или файлов?

[Rusl92]

var f,f1,f2:text;
     a,b:integer;
begin
    assign(f,'name1.txt');
    reset(f);
    assign(f1,'name2.txt');
    reset(f1);
    assign(f2,'nameT.txt');
    rewrite(f2);
    while (not eof(f)) do
     begin
      read(f,a);
      read(f1,b);
      write(f2,'|',a:6,b:6,'|');
     end;
     close(f);
     close(f1);
     close(f2)
end.

вот, что я не понял из твоей задачи: причем тут шириной 30 символов
а вообще, переделай этот фрагмент под свои нужды!

[Ольчик]

чето я не понял...... разделитель между ними или по краям?
и одинаковый размер у чисел или файлов?

Разделитель должен быть по краям и между ними. А размер должен быть одинаковый у файлов.

[Ольчик]

А вообще, нам нужно оформить решение задачи, в помощью компонентов TStringGrid (в них вводятся файлы Name1 и Name2), а NameT нужно вывести в TMemo. И у меня возникла большая проблема с выводом NameT.

[puporev]

Так какого Вы в раздел Паскаль залезли и пудрите мозги?

[Ольчик]

Так какого Вы в раздел Паскаль залезли и пудрите мозги?

Кому я пудрю мозги!?!? И в какой раздел по Вашему мне нужно было залезть???

[puporev]

В Делфи, или в помощь студентам. Или сразу написать, что программа пишется в Делфи, т.к. в этом разделе по умолчанию все делается на Паскаль 7,0, в котором ни Мемо ни Гридов нет.