Tekst źródłowy strony 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

<pre>
ciag:=copy(ciag,2,strlen(pchar(ciag)));
</pre>


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

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



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

<pre>
ciag:=copy(ciag,1,strlen(pchar(ciag))-1);  
</pre>


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


[[Category:Delphi]]