@OrkenWhite:
Ha egy dynamic string arraybe próbálok írni az Insert funkióval(szigorúan nulláról kezdve), vagy egy olyan indexről kérném a hosszúságot, amiben nincs semmi, akkor access violation. Ezzel mit tudok csinálni?

if (length(a) > 50) then
begin
	a[50] = 'kecske';
end;

setlength(a, length(a) + 1);
a[length(a) - 1] = 'kecske';

ts.add('kecske');

if (ts.count > 50) then
begin
	ts.strings[50] = 'kecske';
end;

@Ádám:
TCH: Nem felhasználóbarát, de sokkal kevesebbszer kell parancssort basztatni mint Linuxon

@Ádám:
Amúgy meg ki az az idióta, aki IE11-et akar telepíteni?

SetLength(result,2);
Insert(strbuf,result[0],Length(result[0]);

insert(strbuf, result, Length(result));

result := result + strbuf;

setlength(result, 2);
result[0] := result[0] + strbuf;

@TCH:
Tudsz kódot mutatni?

interface

//Nem lényeges kód volt itt(uses)
type
  BGAFCNames = Array of string;

function getGuestbookNames: BGAFCNames;

//Nem lényeges kód volt itt(uses)
function getGuestbookNames: BGAFCNames;
var
  kutakodj: TStringList;
  keressmeg: integer;
  strbuf: string;
  arcount: integer;

begin
  keressmeg := 0;
  arcount := 0;
  kutakodj := TStringList.Create;
  SetLength(result,1); //Próbáltam nagyobb számot is
  HttpGetText('http://bgafc.t-hosting.hu/bvk.php',kutakodj);
  repeat
    //Nem lényeges kód itt
    repeat
      strbuf := Copy(kutakodj.Text,keressmeg,1); // Char esetén a compiler reklamál
      keressmeg := keressmeg + 1;
      result[arcount] := result[arcount] + strbuf; //Itt van Access Violation
    until charbuf = '<';
    // Nem lényeges kód volt itt
    writeln(result[arcount]);
    arcount := arcount + 1;
    SetLength(result,arcount);
  until keressmeg = 0;
  kutakodj.Free;
end;

writeln(arcount);
writeln(length(result));

keressmeg := PosEx('mailto',kutakodj.Text,keressmeg);
keressmeg := keressmeg + 9;

0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2
0
2

strbuf := Copy(kutakodj.Text,keressmeg,1);

writeln(strbuf);