[hatsub]

Огромное спасибо. Возникает еще одна проблема...
Без добавления проблемной строки все работает нормално.



Код:

PHP код:

function Add(lineadd:string): string;
begin
...
lineadd вводится
...
Listbox2.Items.Add(lineadd);
...
end; 


Listbox2 присутствует на форме.
lineadd: string;
В чем может быть такая проблема.

Если нужно код функции могу скинуть полностью.

Код:

function Add(lineadd:string): string;
begin
  lineadd:=inputbox('Адрес rss-ленты','Вводите адрес правильно!','');
  if (lineadd<>'') then lineaddtemp := lineadd[1]+lineadd[2]+lineadd[3]+lineadd[4]+lineadd[5]+lineadd[6]+lineadd[7];
  if (lineadd='')or(lineaddtemp<>'http://') then showmessage('Неправильно введен адрес')
  else
  begin
    //записываем в массив, массив файл, а из файла в ListBox спомощью функции раз здесь код не робит!

    // add to array
    i:=1;
    while i<100 do
    begin
      if p[i]='' then
      begin
        p[i]:=lineadd;
        numar:=i+1;
        i:=i+200;
      end;
      i:=i+1;
    end;

    //массив в файл
    AssignFile(f,'1.txt');
    ReWrite(f);
    j:=1;
    while j<numar do
    begin
        Writeln(f,p[j]);
        j:=j+1;
    end;
    CloseFile(f);

    Listbox2.Items.Add(lineadd);

  end;
end;

Админ: Пользуемся тегами для оформления кода!