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