Kod
Html olarak geri dönen tablolardaki verileri çekmek için; ( aDaLı_eFe)'ye teşekkürler. Function stringAL(nerden, birinci ,ikinci : String; kacinci : Integer): String; Var i : Integer; sonuc : String; Begin sonuc := ''; i := 0; While i <= kacinci Do Begin sonuc := Copy(nerden, 1, Pos(ikinci, nerden) - 1); Delete(nerden, 1, Pos(birinci, nerden)); Inc(i); End; Result := sonuc; End; -------------------- procedure TForm1.Button1Click(Sender: TObject); var i:integer; gelen:string; begin for i:=0 to Memo1.Lines.Count-1 do begin gelen:=stringAL(memo1.Lines.Strings[i],'>','<',1);//1 ile ikinci karakterin toleransini belirleyebilirsin. if gelen<>'' then memo2.Lines.Add(gelen); end; end;