Delphi Forum

merhaba
tam olarak şöyle:
//----------------------------------------------------
uses
MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin

PlaySound('c:\deneme\bjk.wav', 0, SND_FILENAME + SND_ASYNC);
//şampiyon bjk şarkısını wav olarak kaydetmeyi unutmuyoruz. :)
end;
end ...

merhaba,
Her ne kadar Mustafa Hocam tek bir bileşenle diğer media dosyalarını çalabileceğimizi belirtse de ben tam 38 tane (daha da var) MP bileşenini form üzerine yerleştirip aşağıdaki gibi kodlarla yazım :
if a='çocuk' then
mediaplayer1.play;
if a='çicek' then
mediaplayer2.play;
if a='çorap' then ...

Aslında çözüm çok basit:

RichEdit 'in PlainText 'ini properties ten True yapmak yeterli.

Bunu kodla yazarsak;

RichEdit1.plainText:=True;


Selamlar

Çok teşekkür ederim.

şöyle bir kod dediğinizi yapar mı?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=10;
image1.left:=image1.left+1; // resim bulunduğu yerden sağa doğru gider.
end;

Arkadaşlar, hepinize merhaba,
Uzun süredir soru sormadığım için çok soru sorma hakkımı kullanmak istedim. :)

1. Memo ile richedit arasındaki fark nedir? Eğer sorun
sadece girilcek metnin boyutu ise memoya en fazla ne kadar
metin sığar? Diyelim panoda çok büyük boyutta ms-dos
biçimli metin dosyamız ...

Teşekkürler Hocam.

Arkadaşlar merhaba
Acil olarak klavyedeki bastığımız tuşu belirten bir programa ihtiyacım var.
Elinde hazır bir kod parçası olan var mı?
Ticari bir program için değil bu.
şimdiden teşekkürler.

merhaba arkadaşlar

Bazı programlarda tek bir vaw dosyası üzerinde örneğin 1.2.3...n
olarak okunmuş tek bir dosya üzerindeki verilere farklı butonlarla ulaştıklarını gördüm. Bunun nasıl yapıldığı hakkında bilgisi olan var mı?
Keza böyle olunca program klasörünün içi vaw çöplüğü olmuyor.

Selamlar.

Değerli görüşleri için arkadaşlara teşekkür ederim.

Aslında bu program içerisinde kullanmayı düşündüğüm bir çok hazır fonksiyon var ama bu fonksiyonların aynı anda çalışmasını nasıl sağlayabilirim?

yani diyelim benim
print"beşiktaş" olan bir basic kodum var bunu:
write('beşiktaş'); şeklinde yazmam ...

yok lazio hocam olmadı. Yukarıdaki koddan bişey çıkmadı : :!:

ancak şu kod:

Function Degistir(Memo:TMemo;eski,Yeni:String):Integer;
Var
t:String;
i,a,b,c:Integer;
begin
c:=0;
a:=Length(eski);
For i:=0 to Memo.Lines.Count-1 do
Begin
t:=Memo.Lines.Strings ;
b:=Pos(eski,t);
If b<>0 Then ...

Merhaba arkadaşlar

Belki Mustafa Hocam anımsar;
benim qbasic kodlarını pascal
kodlarına dönüştüren(en azından bir miktar)
proje çalışmam vardı. :)
E biraz Pascal çalıştık, ama sabır da tükendi..
Şöyle bir function yazdım:

function degistir(var x,y:string):string;
var
depo:string;
begin
depo ...

Mustafa hocam teşekkürler..

merhaba arkadaşlar.
yaptığım editör programından asci metin dosyalarını ,driver gerekmeden, direk olarak nasıl yazdırabilirim?
Şu an için MS Edit programını program içerisinden çağırıp oradan yazdırıyorum.

Sayın mavsar ve Sayın Ünyeli;
Her ikinize de gerçekten çok teşekkür ederim.