29-10-2025, Saat: 11:03
(Son Düzenleme: 29-10-2025, Saat: 11:05, Düzenleyen: ercanskose.)
(28-10-2025, Saat: 18:42)enigma Adlı Kullanıcıdan Alıntı: Pos(aranan, kaynak) komutunu kullan.
repeat
p := pos(ilk, Text);
Delete(Text, 1, p + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
until (p = 0);
şeklinde yapabilirsiniz.
çalıştıramadım bu kodu.
<TD><A title="2N3053 Bipolar Transistor specs" href="/bipolar-transistors/2n3053">2N3053</A></TD>
<TD>NPN</TD>
<TD>80 V</TD>
<TD>50 - 250</TD>
<TD>0.7 A</TD>
<TD>TO-39</TD></TR></TBODY></TABLE></DIV><NAV class="pagination group">
cxMemo2.Lines.Add(aradansec(cxMemo1.Text,'/bipolar-transistors/','">'));
almak istediğim kırımızı yazı olanı ama çıktısı aşağıdaki gibi oluyor. önce başlıkları alıcam sonra TD aralarındaki özellikleri alıcam. bu arada bu verdiği çıktı sayfanın en sonundaki kaynak kodu. en baştakileri es geçiyor. en sonrakini alıyor.
TD>
<TD>NPN</TD>
<TD>80 V</TD>
<TD>50 - 250</TD>
<TD>0.7 A</TD>
<TD>TO-39</TD></TR></TBODY></TABLE></DIV><NAV class="pagination group
