@TCH:Tudsz kódot mutatni?
Persze(rövidítve):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; |