Memo Nesnesinin Bir Line'�ndaki String'i �ekme : Merhaba Hale,void randomSong{...

Tue, 17 Jun 2025 17:10:37 +0000

Yazar: Emr.Erkmn
Konu: 1034
G�nderim Zaman�: 17 Haziran 2025 Saat 17:10

Merhaba Hale,

void randomSong

{

if Memo1.Lines.Count <= 1

{

ShowMessage('L�tfen �nce �ark� ekleyin!');

exit;

}

len = Memo1.Lines.Count - 1;

rand = clMath.GenerateRandom(1, len);

rndSong = Memo1.Lines[rand];

rndSong = clGetStringReplace(rndSong, '●', '');

// Sonucu g�ster

ShowMessage('�nerilen �ark�: ' + rndSong);

}
Bu �ekilde kullanabilirsin
StrToInt kullanmad�k burada,
E�er �ark� yoksa kullan�c�ya uyar� veriyoruz.
'●' karakterini temizleyerek kullan�c�ya random �ark� �neriyoruz.

Memo Nesnesinin Bir Line'�ndaki String'i �ekme : Merhabalar şarkı eklenebilen ve...

Tue, 17 Jun 2025 14:21:34 +0000

Yazar: haletr
Konu: 1034
G�nderim Zaman�: 17 Haziran 2025 Saat 14:21

Merhabalar �ark� eklenebilen ve silinebilen ayr�ca eklenen �ark�lar aras�ndan random bir �ekilde �ark� �neren bir uygulama yapmaya �al��t�m. �ark� ekleme silme gibi fonksiyonlar �al��rken random �ark� �nerme fonksiyonu �al��m�yor. Sorun 29. sat�rda. Memo'nun rastgele bir Line'�ndaki Stringi nas�l �ekebilirim?

var

Form1: TclForm;

songEdit: TclProEdit;

BtnAddSong,BtnSuggest,BtnDelete: TClProButton;

lblName: TClProLabel;

mainLayout: TclLayout;

Memo1 : TclMemo;

rand,len : Integer;

rndSong: String;

void addSong

{

Memo1.Lines.Add('●'+songEdit.Text);

ShowMessage('�ark� eklendi ');

songEdit.Text= '';

}

void deleteSong

{

Memo1.Lines.Delete(1);

ShowMessage('�ark� silindi ');

}

void randomSong

{

len= StrToInt((Memo1.Lines.Count-1));

rand = clMath.GenerateRandom(1,len);

rndSong= Memo1.Lines[rand];

ShowMessage(rndSong);

}

{

Form1 = TclForm.Create(Self);

Form1.SetFormColor('#4d5166','',clGNone);

//Ana layout

mainLayout = Form1.AddNewLayout(Form1, 'mainLayout');

mainLayout.Align = alClient;

mainLayout.Margins.Bottom=50;

//�ark� girme edit

songEdit=Form1.AddNewProEdit(mainLayout, 'songEdit', 'Write a song...');

songEdit.Align = alTop;

songEdit.Margins.Top=50;

songEdit.Width = 250;

songEdit.Height = 30;

songEdit.clProSettings.IsRound=True;

songEdit.clProSettings.RoundHeight=15;

songEdit.clProSettings.RoundWidth=15;

songEdit.SetclProSettings(songEdit.clProSettings);

// �ark� listeleme

Memo1= Form1.AddNewMemo(mainLayout,'Memo1', '');

Memo1.Height=250;

Memo1.Width=500;

Memo1.Align=alCenter;

Memo1.ReadOnly=True;

Memo1.TextSettings.WordWrap = True;

Memo1.Lines.Add('SONG LIST');

Memo1.TextSettings.HorzAlign = taCenter;

Memo1.TextSettings.Font.Size=50;

// Label �ark� ismi

lblName = Form1.AddNewProLabel(mainLayout, 'lblName', '');

lblName.Width=100;

lblName.Align=alVertCenter;

lblName.clProSettings.FontSize = 20;

lblName.clProSettings.FontColor = clAlphaColor.clHexToColor('#a8ffde');

lblName.clProSettings.TextSettings.Font.Style = [fsBold];

lblName.SetclProSettings(lblName.clProSettings);

//Buton �ark� ekleme

BtnAddSong=Form1.AddNewProButton(mainLayout, 'BtnAddSong', 'Add Song');

BtnAddSong.Margins.Bottom=5;

BtnAddSong.Align=alBottom;

BtnAddSong.Height=35;

BtnAddSong.Width=100;

BtnAddSong.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnAddSong.clProSettings.FontSize = 15;

BtnAddSong.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#2cc361');

BtnAddSong.clProSettings.IsRound=True;

BtnAddSong.clProSettings.RoundHeight=20;

BtnAddSong.clProSettings.RoundWidth=20;

BtnAddSong.clProSettings.TextSettings.Font.Style = [fsBold];

BtnAddSong.SetclProSettings(BtnAddSong.clProSettings);

Form1.AddNewEvent(BtnAddSong,tbeOnClick,'addSong');

//Buton son eklenen �ark�y� silme

BtnDelete=Form1.AddNewProButton(mainLayout, 'BtnDelete', 'Delete Song');

BtnDelete.Margins.Bottom=5;

BtnDelete.Align=alBottom;

BtnDelete.Height=35;

BtnDelete.Width=100;

BtnDelete.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnDelete.clProSettings.FontSize = 15;

BtnDelete.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#ff5c5c');

BtnDelete.clProSettings.IsRound=True;

BtnDelete.clProSettings.RoundHeight=20;

BtnDelete.clProSettings.RoundWidth=20;

BtnDelete.clProSettings.TextSettings.Font.Style = [fsBold];

BtnDelete.SetclProSettings(BtnDelete.clProSettings);

Form1.AddNewEvent(BtnDelete,tbeOnClick,'deleteSong');

//Buton rastgele �ark� �ner

BtnSuggest=Form1.AddNewProButton(mainLayout, 'BtnSuggest', 'Random song');

BtnSuggest.Margins.Bottom=5;

BtnSuggest.Align=alBottom;

BtnSuggest.Height=35;

BtnSuggest.Width=100;

BtnSuggest.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnSuggest.clProSettings.FontSize = 15;

BtnSuggest.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#488efe');

BtnSuggest.clProSettings.IsRound=True;

BtnSuggest.clProSettings.RoundHeight=20;

BtnSuggest.clProSettings.RoundWidth=20;

BtnSuggest.clProSettings.TextSettings.Font.Style = [fsBold];

BtnSuggest.SetclProSettings(BtnSuggest.clProSettings);

Form1.AddNewEvent(BtnSuggest,tbeOnClick,'randomSong');

Form1.Run;

}

Clomosy | Forum : Memo Nesnesinin Bir Line'�ndaki String'i �ekme

Memo Nesnesinin Bir Line'�ndaki String'i �ekme : Merhaba Hale,void randomSong{...

Memo Nesnesinin Bir Line'�ndaki String'i �ekme : Merhabalar şarkı eklenebilen ve...