Delphi Forum

Aslında kendim yapmak istiyorum yani comp. kullanmak istemiyorum.

az önce bahsetiğim kodlar ile iyi bir sonuç elde ettim fakat ufak bir problem daha var

4.5+5 i veya

6.5-2 gibi bir işlem ile karşılaşınca program hata veriyor. Bu tür kesirli sayıları toplarken farklı bir yolmu kullanıyoruz ?

Bir projeye başladım. Amacım yapay zekalarda ve bazı sitelerde (google) yapılan karışık matematik işlemini kendi programımda yapmak :)

şuan için sadece 4 işlem düşünüyorum örneğin ;

4*56-78+21/59*44+69-3

böyle bir işlemi işlem sırasına göre çözecek ve sonucu edite yazacak :)

fakat böyle birşeyi ...

Selam,

Yapmak istediğiniz şey basit bir bubble sort algoritması ile yazılır ve işin ilginç tarafı, okullarda bu algoritma anlatılmadan öğrencilere bu tür sıralama yaptırılır. Çünkü kod çok basit bir mantık üzerine kuruludur. Yani biraz düşününce çok rahat yapabilirsiniz diye düşünüyorum.

Benim ...

Teşekkürler

Son birşey kaldı. Şimdi memoya attığım bu rakamları küçükten büyüğüe doğru sıralamak istiyorum.

memo içeri;
bunu diğer memoya
şeklinde sıralayacağım nasıl yapabilirim

Tşkler kodlar için.

Kodların hepsi sağlamdı ama bu kod daha kısa olduğu için bununla devam edeyim istedim.

memo2.text:=ansireplacestr(memo1.text,'x','');

bunu şöyle değiştirerek istediğimi yaptım.

memo3.text:=ansireplacestr(memo2.text,'x',#13#10);

fakat şimdide iki tane yan yana x ler ...

Merhaba,

Farklı bir program geliştiriyorum. Bu yüzden soracağım brz saçma gelebilir :)
Direk örnekle sorarsam daha iyi anlatabilceğimi düşünüyorum ;

Memo1 de şöyle yazılar var


595305x43xx64314361079x9x
9xx5x60301x4x3737741xx005
729482xxx2x18x2xx9x556642
789075970xx177231x6xx46xx ...

yazdığınz kodun altına bir döngü daha ekledim ve istediğimi yaptım. tşkler

var
var
i: integer;
begin
for i := 1 to length(Memo1.Text) do
if not (Memo1.Text[i] in [#10, #13, #32]) then // satır sonu, satır ilerlet ve boşluk haricindekileri..
Edit1.Text := Edit1.Text + Memo1.Text[i];
end;
şeklindeki bir kod işini görür :wink:

Boşlukları temizleyip ekledi fakat ...

serkan yazdı:edit1.text:=memo1.lines.text
yazınca dediğin gibi olmuyormu zaten?

onu denemiştim ama arada boşluk karakterleri gözüküyor bunları editten kaldırabilirmiyiz ?

memo1 satırları şu şekilde ;

x44a
af556a
asf56
sdfg4
sfg14c
sd8g7
sdgs21s
sdgfss8
54dfg8x
56sdg8dx

öyle birşey yapmak istiyorumki butona bastığında bu satırlar edit1.text ye yan yana yazılacak ve edtin son hali şöyle olacak ;

x44aaf556aasf56sdfg4sfg14csd8g7sdgs21ssdgfss854dfg8x56sdg8dx

ve her ...

ikut; registry kaydını silmemem gerekiyor sadece isim değişikliği olmalı.

Biltes; senin dediğinde sanırım kayıt kalıyor yeni kayıt açılıyor ama eski kayıtda durmaması gerekiyor.

sabanakman; sanırım istediğim şey buydu, deneyeceğim.

herkezin yardımları için tşkler.

Edit;

Teşekkürler Move ...

Delphi içinden regeditteki bir anahtarın İSMİNİ DEĞİŞTİRMEK istiyorum fakat ne kadar aradıysamda bulamadım. yardım edermisiniz

Güzel olmuş eline sağlık. Kaynak paylaşırmısın yada projeyi nasıl yaptığını biraz daha ayrıntılı anlatır mısın ?

Teşekkürler kodlar için. Peki resim içine yazı gizleme (Steganografi) de bu şekildemi yapılıyor ? Yani bu 0 ve 1 lerin arasına bir yaznın da binary codeunu gömsem resimde herhangi bir bozukluk ve değişiklik olurmu ?

0 ve 1 kodlarına dönüştürüp not defterine veya memoya onun kodlarını almak daha sonra lazım olunca not defterindeki 0 ve 1 leri yine proma gönderip oradan eski haline gelmesini isityorum.