Bu derste web sayfalarındaki tablolardan verileri çekmeyi anlatacağım.
[php]
<pre>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.Li...
6 kez okundu