Karmaşık sayı ve harf içinde istenilen karakterleri alma

[brs]

Selam...

Web sitemde baglan.xml adında sayfam var bu alanda database şifresini tutuyorum, şifreyi alenen göstermekten ise karmaşık harf ve sayıların içinden istediğim karakteri nasıl alabilirim...


Örnek:
<pass>ADBTRPOS8G87Y</pass> diye harf ve sayılar var, ben buradan 3. 5. 8. sıradaki karakteri nasıl alabilirim sonuç (BRS) gelecek.

Kod: Tümünü seç

 with XMLDocument1 do
 begin
 LoadFromFile('http://www.xxxxx.yyy/baglan.xml');
 Active := True;
Edit1.Text := DocumentElement.ChildNodes['pass'].Text;
XMLDocument1.Active := False;

[greenegitim]

Copy fonksiyonu işini görecektir
örn:

Kod: Tümünü seç

edit2.text:=Copy(Edit1.Text,3,1) + Copy(Edit1.Text,5,1) + Copy(Edit1.Text,8,1);

[brs]

Copy fonksiyonu işini görecektir
örn:

Kod: Tümünü seç

edit2.text:=Copy(Edit1.Text,3,1) + Copy(Edit1.Text,5,1) + Copy(Edit1.Text,8,1);

Üstad elinize sağlık dediğiniz gibi oldu, fakat şifre 12 karakterden oluşunca kodlama uzayıp gidiyor acaba daha pratik yolu var mıdır?

Kod: Tümünü seç

Caption := Copy(DocumentElement.ChildNodes['pass'].Text,3,1) + Copy(DocumentElement.ChildNodes['pass'].Text,15,1) + Copy(DocumentElement.ChildNodes['pass'].Text,19,1);

[brs]

Aklıma bu şekilde geldi ama işte daha pratik nasıl yapabilirim....

Kod: Tümünü seç

var
  A, B, C, D, E, F, G, H, I, J, K: String;
  L, M, N, O, P, R, S, T, V, Y, Z: String;
begin
  try
    if Form1.IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument1 do
      begin
        LoadFromFile('http://www.xxx.yyy/bagla.xml');
        Active := True;
        With ServerConnection do
        begin
          A := Copy(DocumentElement.ChildNodes['pass'].Text, 3, 1);
          B := Copy(DocumentElement.ChildNodes['pass'].Text, 15, 1);
          C := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          D := Copy(DocumentElement.ChildNodes['pass'].Text, 3, 1);
          E := Copy(DocumentElement.ChildNodes['pass'].Text, 15, 1);
          F := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          G := Copy(DocumentElement.ChildNodes['pass'].Text, 3, 1);
          H := Copy(DocumentElement.ChildNodes['pass'].Text, 15, 1);
          I := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          L := Copy(DocumentElement.ChildNodes['pass'].Text, 3, 1);
          M := Copy(DocumentElement.ChildNodes['pass'].Text, 15, 1);
          N := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          O := Copy(DocumentElement.ChildNodes['pass'].Text, 3, 1);
          P := Copy(DocumentElement.ChildNodes['pass'].Text, 15, 1);
          R := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          S := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          T := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          V := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          Y := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);
          Z := Copy(DocumentElement.ChildNodes['pass'].Text, 19, 1);

[Commandx]

Bir ara bir forumda okumuştum sn Barutali arkadaşımızın yazdığı minik bir fonksiyon ile bu iş halledilebilir

Kod: Tümünü seç

 Function aradansec( text, ilk, son:String ): String;
begin
   Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
   Result := Copy(Text, 1, Pos(Son, Text)-1);
end;

Kullanımı Örnek

Kod: Tümünü seç

var
text:string;
begin
text:='http:\\www.google.com.tr';
//aradansec(text,'arasından Seçmek istediğin ilk sring','arasından seçmek istediğin son string')
edit1.text:= aradansec(text,'www','.com.tr'); // Bunun çıktısı google olur
end;