onluk sayıyı onaltılık sayıya nasıl çevirebilirim

[sarp_halit]

merhaba arkadaşlar. ilk soru. bir karakterin ascii kodunu nasıl öğrenebilirim ama kelimedeki bütün harflerin

yani şöyle: merhaba
m nin ascii kodu
e nin ascii kodu
r nin ascii kodu
h nin ascii kodu
...
...
...

ve bunlara belli bir rakam ekleyeceğim. sonra da onaltılık sayı sistemine çevireceğim. nasıl yapabilirim? bir fikri olan var mı?

teşekkürler kolay gelsin.

[unicorn64]

öncelikle aynı soru için 2 başlık açmışsın...
herhangi bir karakterin ascii karşılığırı ord fonksiyonuyla, tam tersi işlemi yani ascii değeri karaktere çevirmeyi chr ile yapabilirsin.

string bir char dizisi olduğuna göre ilk indisin 1 olmasını göz önüne alıp döngü kurarak tüm harflerin ascii değerlerini alabilirsin.

16lık sisteme çevirmenin asıl mantığı matematiksel sayı sistemi dönüşümü. yani bölme ve bölüm ile kalan değerlerini alıp işleme olayı...

[sarp_halit]

nette bir problem vardı
o yüzden iki tane oldu. senden rica etsem bana ufak bir örnek verebilir misin lütfen

[adelphiforumz]

procedure TForm1.Button4Click(Sender: TObject);
var s:String;
c:Char;
begin
s:='MERHABA';
c:=s[5];
ShowMessage(IntToStr(Ord(c)) + ' - ' + Chr(Ord(c)) + ' - ' + IntToHex(Ord(c),1));
end;

[sarp_halit]

teşekkürler. ama bunu inceledim de bu sadece bir karakter için. ben bunu kelimedeki bütün karakterler için istiyorum yani şu copy fonksiyonunu kullanarak nasıl yapabilirim. ya da ne bileyim daha farklı bi şekilde.

[unicorn64]

önceki mesajımı tekrar okursan döngüyle stringdeki her bir karaktere erişebileceğini belirtmiştim.
ki zaten @adelphiforumz un mesajında da bu durum (stringin char dizisi gibi kullanımı) görülüyor.
ama illa copy yi kullanmak istersen o da olur.

Kod: Tümünü seç

var 
s,s2:string;
x:integer;

s:='merhaba';
for i:=1 to length(s) do
begin
 s2:=copy(s,i,1);
 x:=ord(s2);
 memo1.lines.add(s2+' -> '+inttostr(x));
end;

[sarp_halit]

teşekkür ederim. ellerine sağlık