Запись массива в txt

[yura-cat]

я конечно воспользуюсь поиском, но интересно, почему ЭТОТ код не работает? я считаю что он должен работать)
procedure unname;
var
f: textfile;
n: integer;
begin
AssignFIle(F,'D:\тест\file.txt');
Rewrite(f);
n:=1;
while (name_g[i,1]<>'') do begin
n:=n+1;
Writeln(f,name_g[n,1],';',name_g[n,2]);
CloseFile(f);
end;

[mihali4]

я считаю что он должен работать

А где у вас объявлен этот самый массив name_g ?
А где у вас идет присвоение значений элементам этого массива ?
А что это за переменная I у вас в строке "while (name_g[i,1]<>'') do begin" ?

[yura-cat]

var (глобальный)

Name_g : array[1..255,1..255] of string;
I: integer = 0;

[yura-cat]

он не то чтобы совсем не работает, он почему-то , записывает только первую строчку, а затем ошибка I\O
может в таком случае, вы, если вам не сложно приведете мне простой пример этой процедуры?

[mihali4]

Сообщение от yura-cat

он не то чтобы совсем не работает, он почему-то , записывает только первую строчку, а затем ошибка I\O

Ну так вы посмотрите внимательно на этот кусок:

n:=1;
while (name_g[i,1]<>'') do begin
n:=n+1;
Writeln(f,name_g[n,1],';',name_g[n,2]);
CloseFile(f);
end;

- где у вас изменяется условие ? (I как было равно 1, так и осталось - бесконечный цикл)
- вы записываете ОДНУ строку и тут же закрываете файл... А на следующем шаге пытаетесь записать в этот закрытый файл - вот вам и I/O Error...
Подскажу - строка CloseFile(f); должна быть ВЫНЕСЕНА из цикла. Но... смотрите первое замечание насчет условия выхода из цикла.

[yura-cat]

большое, спасибо, я разобрался в своих ошибках и получил +100 опыта.