Mega Code Archive

Neoturk forum - memo satırlarından bilgi almak

" 14 Aralık 2005 09:32 Memo satırlarından bilgi almak Kolay gelsin arkadaşlar. Yapamadığım şey Memo satırlarından mesela 6. satırdaki yazının ilk 5 kelimesini silip geri kalanını labele aktarmak. çok araştırdım fakat bir türlü yolunu bulamadım. Yardımlarınızı bekliyorum. Çok teşekkürler. bilmor " ************************************* 14 Aralık 2005 18:02 memoda satirlar 0. satirdan baslar var str : String ; begin str := Copy(Memo.Lines[5],6,Length(Memo.Lines[5]-5) ); Label.caption := str; end; burada ben 6. harften basladim kelime icin kac kelime oldugu vs.. bilgisini alman lazim ornek olarak bosluk lari sayarak kac kelime oldugunu anlaya bilirsin 6 harfden itibaren oldugunu varsayarak yukaridaki ornegi yazdim kolay gelsin ziya69 ************************************* cevap: ziya69 arkadaşımıza verdiği cevap için teşekkürler.... kodu biraz daha esnek hale getirmek istiyorum, forma 1 adet memo, 1 adet button yerleştiriniz, //...written by neoturk - 16.12.2005 procedure goster(xmemo:Tmemo;satir_index,baslangic:integer;xlabel:Tlabel); var x:string; begin x:=xmemo.Lines[satir_index]; xlabel.Caption:=copy(x,baslangic,999); end; procedure TForm1.Button1Click(Sender: TObject); begin memo1.clear; memo1.Height:=200; memo1.Width:=500; memo1.lines.Add('merhaba'); memo1.lines.Add('bu bir delphi çalışmasıdır'); memo1.lines.Add('amaç esnek bir procedure yazarak'); memo1.lines.Add('istenilen bir memo içerisindeki'); memo1.lines.Add('istenilen satırdaki'); memo1.lines.Add('başlangıç yerinden itibaren geri kalan satırları'); memo1.lines.Add('istenilen label içerisine yazdırmak'); memo1.lines.Add('delphi programlama kolaydır ve bol pratik ister'); memo1.lines.Add('neoturk'); //memo1'in 8.satırının(7 nolu index) 8.karakterinden itibaren olan yeri //label1 içine yaz. goster(memo1,7,8,label1); //goster(memo9,7,8,label23); //gibi.... end; kolay gelsin.......... saygılarımla_ neoturk_