Ok dikec mam todle:

procedure TForm1.Button2Click(Sender: TObject);
var s,sub1,subs:string; //sub1 - řídící znaky, subs - nalezené řetězce
I,Y,Z:integer;
begin
//je třeba hledat text href a src
while eof(f)<>true do
begin
readln(f, s);
for I:=1 to length(s) do
begin
if I<(length(s)-4) then
if s[I]+s[I+1]+s[I+2]+s[I+3] = 'href' then
begin
Y:=0;
//determinování řetězce odkazu
if s[I+Y+5]='"' then
repeat
subs:=subs+s[I+Y+5+1];
sub1:=s[I+Y+5+2];
inc(Y);
until sub1='"';

Memo1.Lines.Add(subs);
end;
//subs:='';
//sub1:='';

//pos('/',subs);
//determinování názvu obrázku -
if s[I]+s[I+1]+s[I+2] = 'src' then
begin
Y:=0;
//determinování řetězce odkazu
if s[I+Y+5]='"' then
repeat
subs:=subs+s[I+Y+5+1];
sub1:=s[I+Y+5+2];
inc(Y);
until sub1='"';

//determinování názvu odkazu
repeat
inc(Y);
until s[I+Y+5+1]='>';(*sub1='"';*)
//inc(Y);
repeat
inc(Y);
if (I+Y+5)>=Length(s) then break;
subs:=subs+s[I+Y+5+1];
//inc(Y);
until s[I+Y+5+1]='<';
delete(subs,(length(subs)),1);
Memo1.Lines.Add(subs);

end;
if s[I]+s[I+1]+s[I+2] = 'src' then
begin
Y:=0;
//determinování řetězce odkazu
if s[I+Y+4]='"' then
repeat
subs:=subs+s[I+Y+4+1];
sub1:=s[I+Y+4+2];
inc(Y);
until sub1='"';
Memo1.Lines.Add(subs);
subs:='';
sub1:='';
end;
end;
end;
end;

end.


zadaní:

Program přečte stránku HTML (soubor *.html) a vypíše všechny odkazy a cesty a jména obrázků, které stránka obsahuje tj. obsahy tagů <a>, <img>. Soubor *.html otevřít pomocí opendialogu, výsledek do textového souboru nebo mema.


pls mohl byste to nekdo trchu zcekovat a poupravit, program sice chodi ale nejak podivne, nevim co s tim udelat,prosim moc diky