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

[esistem]

Buda Fonksiyon hali olsun.

type
  TIstenen = (ISagdanAl, ISoldanAl, IParcaAl, ISoldanSil, ISagdanSil);
....
....

Function StringManipule(Deger:String; Istenen:TIstenen; Basla, KacAdet:Integer):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;

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 3 karakter sil:'+StringManipule(d,ISoldanSil,0,6));
memo1.Lines.Add('Sağdan 3 karakter sil:'+StringManipule(d,ISagdanSil,0,3));
end;