Путаница с типами для больших строк

[WennY]

Вот код:

program question;

uses
  windows,
  classes,
  idhttp,
  dialogs;

{ запрос кода страницы (indy 9) }
function GetUrl (URL : string) : string;
var
  idhttp1 : tidhttp;
begin
  idhttp1 := tidhttp.Create(nil);
  Result := 'test' + idhttp1.Get(URL);
end;

{ разделитель строк }
procedure Explode(var a: array of pchar; Border, S: string);
var
  S2: string;
  i: Integer;
begin
  i := 0;
  S2 := S + Border;
  repeat
    try
      a[i] := PChar( Copy(S2, 0, Pos(Border, S2) - 1) );
    except
    end;
    Delete(S2, 1, Length(a[i] + Border));
    Inc(i);
  until S2 = '';
end;

var
  A : array[0..1] of pchar;
begin

{ не вылетает }
{ Explode(A, 'test', GetUrl ( 'http://www.google.ru' ) ); }

{ вылетает =( }
Explode(A, 'test', GetUrl ( 'http://www.delphisources.ru/forum/' ) );

ShowMessage(A[1]);

end.

Суть в том, что при обработке слишком больших строк (это моя версия причины) вылезает violation read error. Вроде pchar, что я там недоглядел? Я чет встрял :\ Спасибо.

[veniside]

PChar() не выделяет память, а просто приводит указатель к типу PChar, так что при выходе из Explode() локальные переменные очистятся, а элементы массива а[] с большой степенью вероятности будут указывать вникуда.

[WennY]

Подскажите пожалуйста, что нужно сделать в моей ситуации?

[veniside]

Из кода не совсем ясно, чего хотим добиться, но если в общем случае нужно разделить большую строку на много маленьких, то есть 2 подхода:

1) заюзать TStringList. В него удобно сохранить результат:

procedure Explode(L: TStringList; const data: string);
begin
  while (чего-то там) do
    L.Add(Copy(data, ...));
end;

На выходе элементы списка L буду содержать найденные подстроки.


2) можно и массив PChar, только память под них выделять/освобождать руками, через StrNew()/StrDispose(), например. И не забывать, что массив должен динамически рости, "array[0..1]" выглядит удручающе ) Если на сайте несколько раз встретится слово 'test', ваш цикл пойдёт записывать в a[2], a[3] и далее по списку.

[WennY]

Из кода не совсем ясно, чего хотим добиться, но если в общем случае нужно разделить большую строку на много маленьких

Нужно разделить на две части. Просто у функции такой метод работы

И не забывать, что массив должен динамически рости

В моем проге он не должен расти, там только 2 части

Если на сайте несколько раз встретится слово 'test'

Не встретится. Спасибо, но я не идиот, это просто тестовый исходник, чтобы было понятна суть моей проблемы.

[WennY]

Спасибо вам за наводку, сменил реализацию функции explode, заработало =)
Исход рабочей эксплоды:

function Explode ( S, Border: string ) : MyArray;
 var
   a: array [0..1] of string;
 begin
    SetLength(Result,2);
    a[0] := Copy ( S, 0, pos ( Border, S ) - 1 ) ;
    Delete ( S, 1, pos ( Border, S ) + Length ( Border ) - 1 );
    a[1] := S;
    Result[0]:=a[0];
    Result[1]:=a[1];
 end;