String kopyalama

[sailor]

Merhaba arkadaşlar,
Delphi'de string kopyalama hakkında bir sorunum var.Araştırıyorum fakat yeterli bilgiye ulaşamadım,aşağıdaki kod da edit1'e girilen stringin edit2'de
ASCII karakter olrak göstermek istiyorum.Fakat s2:=s2+ord(s1); satırında incompatible type hatası veriyor.Stringi char'a çevirmem gerekiyor sanırım.Çözüm ne olabilir?Yardımlarınız için şimdiden teşekkürler.

procedure TForm1.Button1Click(Sender: TObject);
var
a,s2:integer;
s:string;
s1:string;
begin
s:=edit1.Text;
s2:=0;
for a:=1 to 8 do
begin
s1:=copy(s,a,1);
s2:=s2+ord(s1);
end;
edit2.Text:=inttostr(s2);
end;

[fduman]

s2:=s2+Char(ord(s1))

[hdayi]

ord() integer bir sayı döner. Integer sayıyı stringe çevirmen gerekiyor.

Kod: Tümünü seç

s2:=s2+inttostr(ord(s1));

Kolay gelsin.

[fduman]

Off haklısın. Benim kafam nerde böyle?

satırında incompatible type hatası veriyor.Stringi char'a çevirmem gerekiyor sanırım.

Satırına takılmışım ama acaip yanlış birşey yapmışım.

[sailor]

Verdiğiniz bilgiler için sağolun kardeşim.Fakat hata veren satırı hem

Kod: Tümünü seç

s2:=s2+inttostr(ord(s1));

hemde

Kod: Tümünü seç

s2:=s2+ord(s1);

olarak değiştirdiğimde yine incompatible type hatasını alıyorum.Çünkü aynı satırda hem int hemde string var. s2'yi yukarıda integer olarak ayarladım.s2'nin string olmasını istemiyorum çünkü yanına değil üstüne eklemesini istiyorum.Yani toplama sonucu hep 1 byte olacak.Aslında sonucu hep hex olarak ve 1 byte olarak hesaplamak istiyorum.Yardım ederseniz çok sevineceğim arkadaşlar.Kolay gelsin.

[sailor]

Özür dilerim arkadaşlar demin gönderdiğim mesajdaki s2:=s2+ord(s1); satırı s2:=s2+Char(ord(s1)) olacak.Bu şekilde yazdığımdada incompatible type hatası alıyorum.Lütfen yardımcı olun.Kolaygelsin.

[hdayi]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    Sayi, i: Integer;
begin
    Sayi := 0;
    for i := 0 to Length(Edit1.Text)-1 do
        Sayi:=Sayi+ord(Edit1.Text[i]);
    Edit2.Text:=IntToStr(Sayi);

end;

[sailor]

Çok sağol kardeşim herşey için.İnşallah işime yarar.Kolay gelsin.

[aslangeri]

s.a.
sanırım s1 değişkeninin tipi ile alakalı bir durum.

Kod: Tümünü seç

s1[1]

şeklinde kullanırsanız sanırım sorun olmazz
kolay gelsin.

[sailor]

Çok teşekkürler Aslangeri kardeşim.Kolay gelsin.

[sailor]

Son verdiğin kodu şimdi deneyebildim hdayi kardeşim.Allah razı olsun senden ve tüm kardeşlerimizden,sorunumu verdiğin kod ile hallettim.