"
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_