Hayırlı günler.
Embarcadero Delphi(XE7)[-] ile yazılan bir program mevcut.Program dosyalarını çıkartıyorum.RCDATA kalsörü içerisinde dosya uzanlıları belli olmayan
Borland Form (generic) tahmin ettiğim dosyalar mevcut.RAD Studio 10.2 ile açıyorum aşağıda ki gibi kod kalıpları geliyor.Bu kodları nasıl okuyabilirim.
Amacım bu kodları farklı alanda kullanmak.Yazı karakteri gibi görmek istiyorum.Yardımlarınız için şimdiden teşekkür ederim.
545046300F544261 6E6B615261706F72 6C6172690E42616E 6B615261706F726C
617269044C656674 020003546F700200 0B426F7264657249 636F6E730B0C6269
53797374656D4D65 6E750A62694D696E 696D697A65000743 617074696F6E1410
00000042616E6B61 205261706F726C61 72C4B10C436C6965 6E74486569676874
0398020B436C6965 6E74576964746803 7D0205436F6C6F72 0709636C42746E46
6163650C466F6E74 2E43686172736574 070F44454641554C 545F434841525345
540A466F6E742E43 6F6C6F72070C636C 57696E646F775465 78740B466F6E742E
Delphi kod okumak
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Re: Delphi kod okumak
Verdiğin içerik bu şekilde veri okumak mı istiyoruz.
Cevap Evet ise :
her bir ikili birer ASCII karakterin HEX karşılığını ifade eder.
Kod: Tümünü seç
Edit2TPF0TBankaRaporlariBankaRaporlariLeftTopBorderIconsbiSystemMenu
biMinimizeCaptionBanka RaporlarıClientHeightClientWidth}Color clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.
her bir ikili birer ASCII karakterin HEX karşılığını ifade eder.
Kod: Tümünü seç
Var
s, r : String;
i : Integer;
begin
s := '545046300F5442616E6B615261706F726C6172690E42616E6B615261706F726C'
+ '617269044C656674020003546F7002000B426F7264657249636F6E730B0C6269'
+ '53797374656D4D656E750A62694D696E696D697A65000743617074696F6E1410'
+ '00000042616E6B61205261706F726C6172C4B10C436C69656E74486569676874'
+ '0398020B436C69656E745769647468037D0205436F6C6F720709636C42746E46'
+ '6163650C466F6E742E43686172736574070F44454641554C545F434841525345'
+ '540A466F6E742E436F6C6F72070C636C57696E646F77546578740B466F6E742E';
r := '';
while length(s) > 0 do begin
r := r + Chr( Ord( StrToInt('$'+Copy(s,1,2)) ) );
System.Delete( s, 1, 2);
end;
Showmessage( r );
end;