edit ile ilgili bir soru

[maqro]

s.a

diyelim editin içinde [delphitürkiyedelphi yazıyor]. butona basınca baştaki ve sondaki [delphi] leri nasıl sileriz. yani butona basınca [delphitürkiyedelphi] yazısı [türkiye] olacak.

selametle..

[White Rose]

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
X,
S:String;
begin
x:='delphi'; // silinecek metin
S:=Edit1.Text;
If S='' Then exit;
while Pos('delphi',s)>0 do begin
I:=Pos('delphi',s);
Delete(s,I,length(x));
label1.Caption:=S;
end;
end;

[maqro]

teşekkür ederim... aradığım cewap buydu...

[menderes]

İlave olarak şu şekilde de yapabilirsiniz.
Belki işinize yarar....

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:string;
begin
if Trim(Edit1.Text)<>'' then
begin
s:=Edit1.Text;
s1:=Copy(s,7,7);//Edit1 in içinden 7 nci harften sonra 7 harfi al
Edit1.Text:=s1;
end
else
begin
ShowMessage('Edit kutusu boş');
Edit1.SetFocus;
Abort;
end;
end;

Kolay gelsin....