[+10 Puan] String Manipülasyon İşlemleri

[esistem]

Buda yakup hocanın istediği gibi sağına, soluna veya arada istediğiniz yere, istediğiniz karakterleri, istediğiniz kadar basan kod dahil;

type
  TIstenen = (ISagdanAl, ISoldanAl, IParcaAl, ISoldanSil, ISagdanSil, ISagaEkle, ISolaEkle, IArayaEkle);


Function StringManipule(Deger,Eklenecek:String; Istenen:TIstenen; Basla, KacAdet:Integer):String;
Var
X:Integer;
Parca:String;
Begin
If (Istenen=ISagdanAl)
  Then Result:=copy(Deger,length(Deger)-(KacAdet-1),KacAdet);
If (Istenen=ISoldanAl)
  Then Result:=copy(Deger,1,KacAdet);
If (Istenen=IParcaAl)
  Then Result:=copy(Deger,Basla,KacAdet);

If (Istenen=ISoldanSil)
  Then Begin
  Delete(Deger,1,KacAdet);
  Result:=Deger;
       End;

If (Istenen=ISagdanSil)
  Then Begin
  delete(Deger,length(Deger)-(KacAdet-1),KacAdet);
  Result:=Deger;
       End;

If (Istenen=ISagaEkle)
  Then Begin
  Parca := '';
  for x:= 1 to KacAdet do Parca := Parca + Eklenecek;
  Result:=Deger+Parca;
       End;

If (Istenen=ISolaEkle)
  Then Begin
  Parca := '';
  for x:= 1 to KacAdet do Parca := Parca + Eklenecek;
  Result:=Parca+Deger;
       End;

If (Istenen=IArayaEkle)
  Then Begin
  Parca := '';
  for x:= 1 to KacAdet do Parca := Parca + Eklenecek;
  Result:=copy(Deger,1,Basla)+Parca+copy(Deger,Basla+1,Length(Deger));
       End;

End;

procedure TForm2.Button1Click(Sender: TObject);
var
d:string;
begin
d:='DelphiCan';
memo1.Lines.Add('Sağdan 3 karakter:'+StringManipule(d,'',ISagdanAl,0,3));
memo1.Lines.Add('Soldan 3 karakter:'+StringManipule(d,'',ISoldanAl,0,3));
memo1.Lines.Add('Parca Al:'+StringManipule(d,'',IParcaAl,2,3)); // 2den basla 3 karakter
memo1.Lines.Add('Soldan 6 karakter sil:'+StringManipule(d,'',ISoldanSil,0,6));
memo1.Lines.Add('Sağdan 3 karakter sil:'+StringManipule(d,'',ISagdanSil,0,3));

memo1.Lines.Add('Sağa 3 karakter 5 Ekle:'+StringManipule(d,'5',ISagaEkle,0,3));
memo1.Lines.Add('Sola 3 karakter 5 Ekle:'+StringManipule(d,'5',ISolaEkle,0,3));
memo1.Lines.Add('Soldan 6 karakter sonra 3 tane 5 Ekle Devam Et:'+StringManipule(d,'5',IArayaEkle,6,3));
end;