Delphi de Pos Metodu

 Merhaba arkadaşlar Delphi’de pos metoduna bakacağız. Pos metodu belirlenen kısımdan sonraki metini alıyoruz.

 Bu örnekte Edit nesnesine girilen metinde bulunan ve önceden tanımladığımız boşluktan sonraki metin kısmını pos metoduyla mesaj olarak ekrana yazdırıyoruz. Yani POS metoduyla belirlediğimiz bir simgeden (. - , : vb.) sonraki metini alıyoruz.

 

Şekil 1

 

Şekil 2

 

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

 

var

 

i:integer;

 str:string;

 

begin

 

str:=Edit1.Text;

i:=Pos(' ',str); delete(str, 1,i);

Showmessage(str);

 

end;

 

end.

 

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.