Delphide Pos Kullanımı ?

[CiTiZEN]

sadece pos yazıp arama yapman yeterli..

[Ertugrul]

Merhaba arkadaşlar

#Ali/Veli*FalanFilan

gibi bir stringi parçalamak istiyorum
ama parçalama şekli

1) 1. ' # ' den ' / ' arasını al yani (Ali) şeklinde
2) /' tan sonra ' * ' a kadar olan içeriği al Yani (Veli) Şeklinde
3) * Sonra ne varsa al

bunu nasıl yapabilirim ' pos ' ile

Kod: Tümünü seç

var
strIlk,strA,strB,strC:string;
begin
  strIlk:='#Ali/Veli*FalanFilan';
  strA:=Copy(strIlk,Pos('#',strIlk)+1,Pos('/',strIlk));
  strB:=Copy(strIlk,Pos('/',strIlk)+1,pos('*',strIlk));
  strC:=Copy(strIlk,Pos('*',strIlk)+1,Length(strIlk));
end;

string rutinlerine yeni basladigini varsayarak en basit hali boyle fakat birden fazla '#','/' vb olursa is degisir.

[sr1111]

bu pos satirlar calismiyor, ona gore.

strA:=Copy(strIlk,Pos('#',strIlk)+1,Pos('/',strIlk));



deneme olarak yukaridaki satiri yazdiktan sonra
memo1.text:=stringreplace(memo1.text, stra, 'kemal', [rfreplaceall]);

yaptim olmuyor.