Jak uciąć jeden lub więcej znaków z początku lub końca stringa ? (delphi)

Czasami zdarza się że mamy string.

I potrzebujemy pominąć np pierwszy (lub więcej) znak. w tym celu użyjemy prostej komendy

<source lang="delphi"> ciag:=copy(ciag,2,strlen(pchar(ciag))); </source>

<source lang="delphi"> procedure TForm1.ListBox1DblClick(Sender: TObject); var ciag:string; begin ciag:='12345'; ciag:=copy(ciag,2,strlen(pchar(ciag))); showmessage(ciag); end; </source>

Wróci ona nam wartości "2345".

Jeżeli z kolei, będziemy chcieli pozbyć się 1 znaku z końca linii.

<source lang="delphi"> ciag:=copy(ciag,1,strlen(pchar(ciag))-1); </source>

Analigocznie, zwiększając liczbę możemy ucinać dowolną liczbę znaków :)