Delphi 7; Динамические переменные + вектор + строки.

[iReqyz]

Доброго времени суток. Помогите пожалуйста с заданием:
Одно из возможных представлений "длинного" (не более N строк) текста – это разделить его на строки и создать массив ссылок на эти строки (тип Tekst):
Const N = 100;
Type Ref = ^String;
Tekst = array [1..N] of Ref;
(если в тексте менее N строк, то последние элементы массива равны nil; в начале массива ссылок nil не должно быть).
а) Напишите процедуру Input(f,T), считывающую строки из текстового файла f и помещающую их в кучу (адреса будут храниться в элементах вектора T типа Tekst).
б) Напишите процедуру Output(T), выводящую на устройство Con текст Т построчно (т.е. выводит строки, которые расположены по адресам, хранящимся в элементах вектора Т).

Свой вариант:

program Class26_zad5;
{$APPTYPE CONSOLE}
uses
SysUtils;
const N = 5;
Type Ref = ^String;
Tekst = array [1..N] of Ref;

procedure ImPut(var f:text; T : Tekst);
var i : Integer;
x : string;
begin
Reset(f);
For i:=1 to n do
if not Eof(f) then
begin
read(f,x);
New(T[i]);
if x='' then T[i]:=nil
else T[i]^:=x;
end;
Close(f);
end;

procedure OutPut(T:Tekst);
var i : Integer;
begin
for i:=1 to n do writeln(T[i]^);
end;

var f : Text;
T : Tekst;
begin
Assign(f,'a.txt');
ImPut(f,T);
OutPut(T);
Readln;
end.

Вроде бы правильно, но программа не работает. (В файле a.txt несколько строк на латинице) При запуске моргает окно консоли, успел читануть что-то про адресса. SOS Заранее спасибо

[iReqyz]

Ну не все сразу!!!

[phomm]

а ты остряк ))

возможно косяки есть в файле, но, думаю, главный косяк(из-за которого говорит про адреса) - вывод нила, переделай так

procedure OutPut(T:Tekst);
var i : Integer;
begin
for i:=1 to n 
  do if t[i]<> nil
    then  writeln(T[i]^);
end;

также косяк тут : read(f,x); надо заменить на readln(f,x); а то у тебя файл считывается не построчно, а просто так, в результате чего массив Т заполняется нилами

и во всех процедурах, куда передаёшь Т надо указать var T: tekst , потому что надо передавать по ссылке (раз уж ты себе придумал процедуры которым надо указать, с чем работать), а не по значению(при этом вся работа производится над копией данных, и реально ты не увидишь ничего)

и 2 тебе наставления:
1 юзай специальный тег code для вставки кода (он есть также и в расширенной правке сообщения, кнопочка #)
2 юзай пошаговую трассировку (в дельфи F7), проще будет видно, что и как выполняет прога и где мб ошибка

Ну и велкам на форум ))