Передача строки-как параметра-переменной

[Иллидан]

Проблема с передачей строки. То есть получается так:
type
smas= array [1..50] of string;
var
s:smas;

procedure nik(var s1:smas);
var
F1:textFile;
i:integer;
begin
AssignFile(f1,'1.dat');
i:=0;

repeat
inc(i);
readln(f1,s1[i]);
until eof(f1)=true;


end;


begin

nil(s);

//выдает ошибку или работает неправильно,
//видимо потому, что s не были приcвоены начальные значения
// в основной программе?
end.

[puporev]

repeat
inc(i);
readln(f1,s1[i]);
until eof(f1)=true;

[Иллидан]

readln(f1,s1[i]);

Извиняюсь,опечатался, я без Дельфи набирал. Исправил выше. Как раз этот код у меня работает не верно.

[puporev]

type
smas= array [1..50] of string;
var
s:smas;
f1:textfile;
i,j:integer;
procedure nik(var s1:smas;var i:integer);//выдает размерность массива
begin
AssignFile(f1,'1.dat');
Reset(f1); //читать файл
i:=0;
repeat
inc(i);
readln(f1,s1[i]);
until eof(f1)=true;
close(f1);//закрыть файл
end;

begin
nik(s,i);
for j:=1 to i do//вывести результат на экран
writeln(s[j]);
readln
end.

[Иллидан]

Ваш код правильно работает, если описывать процедуру в основной программе. Если же вызывать процедуру из dll то, почему-то, работает не верно.

[puporev]

Код или работает или не работает. А уж как Вы написали dll и как вызываете, это уже совсем другой вопрос. У некоторых и Windows неправильно работает.

[Sibedir]

Возможно ошибка связана с использованием String в DLL. Нужно либо использовать PChar либо прописать в разделе uses модуля DPR модуль ShareMem и вроде как в главном модуле библиотеки тоже.

program MyProgram;

uses
  ShareMem,
  ...

и вроде как

library MyLibrary;

uses
  ShareMem,
  ...

[Serge_Bliznykov]

nil(s);

а почему NIL ???!!!
может NIK(s) ??

___________________________________ __________
добавлено

Ваш код правильно работает, если описывать процедуру в основной программе. Если же вызывать процедуру из dll то, почему-то, работает не верно.

извините, не дочитал... похоже, моё замечание Вам ни к чему... ;-( а это была просто описка...

[JTG]

А может заюзать TStringList или TStrings?

[Иллидан]

Возможно ошибка связана с использованием String в DLL. Нужно либо использовать PChar либо прописать в разделе uses модуля DPR модуль ShareMem и вроде как в главном модуле библиотеки тоже.

Код:

program MyProgram;

uses
ShareMem,
...

и вроде как

Код:

library MyLibrary;

uses
ShareMem,
...

Да, теперь все правильно грузится. Но, при выходе из программы в любом случае возникает ошибка ( и предложение отправить ее в гости к Биллу) , независимо от того загружал я подпрограмму из Длл или нет. Вообще, возникает ошибка в любом случае в конце программы, если я просто подключаю ShareMem. Может надо как-то память освободить или что-то подобное?