Delphi Forum

Kod: Tümünü seç

Image1.Canvas.TextOut(10,10,'Deneme123');

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var a,i:integer;
begin

while pos(' ',MaskEdit1.Text)>0 do
 begin
  a:=pos(' ',MaskEdit1.Text);
  MaskEdit1.Text:=copy(MaskEdit1.Text,1,a-1)+copy(MaskEdit1.Text,a+1,length(MaskEdit1.Text)-(a-1));
 end;
 end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Ara:Integer;
begin
Ara:=Pos('Delphi',Memo1.Text);// Pos(Aranacak_Metin,Kaynak_Metin) 
if Ara>0 then  
  begin
    Memo1.Text:=Copy(Memo1.Text,Ara,Length(Memo1.Text)-Ara);
  end
  else
  ShowMessage('Bulunamadı!!!');
end;