Delphi ( Cümleyi Kelime Kelime Seçmek ) - Türkiye'nin En Büyük Forumu Bence Seversin Tabi

8 January 2009, 14:56

Forma 2 edit 1 ekleyin. Aşağıdaki kodu biçip gerekli yere yapıştırın.
Bu kod verilen cümleyi keliem kelime seçip seçilen kelimeyi edit2 ye aktarıyor.
Edit1 de aranacak cümle bulunacak.

var
Form1: TForm1;
BSLG:INTEGER=1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
krtr:integer;
Ara:String;
begin
Edit1.setfocus;

Ara := Copy(edit1.text,BSLG,length(edit1.text) );
krtr := pos(' ',Ara);

if krtr > 0 then
begin
edit1.SelStart := BSLG-1;
edit1.SelLength := pos(' ',Copy(edit1.text,BSLG,length(edit1.text)) )-1;
BSLG :=BSLG + krtr;
end else
begin
if length(edit1.text) > 0 then
begin
edit1.SelStart := BSLG-1;
edit1.SelLength := length(edit1.text);
BSLG := 1;
end;
end;

Edit2.Text := Edit1.SelText;

end;