Jak uciąć jeden lub więcej znaków z początku lub końca stringa ? (delphi): Różnice pomiędzy wersjami
Przejdź do nawigacji
Przejdź do wyszukiwania
m (Zastępowanie tekstu - "</source>" na "</pre>") |
|||
| Linia 6: | Linia 6: | ||
<source lang="delphi"> | <source lang="delphi"> | ||
ciag:=copy(ciag,2,strlen(pchar(ciag))); | ciag:=copy(ciag,2,strlen(pchar(ciag))); | ||
</ | </pre> | ||
| Linia 18: | Linia 18: | ||
showmessage(ciag); | showmessage(ciag); | ||
end; | end; | ||
</ | </pre> | ||
Wróci ona nam wartości "2345". | Wróci ona nam wartości "2345". | ||
| Linia 28: | Linia 28: | ||
<source lang="delphi"> | <source lang="delphi"> | ||
ciag:=copy(ciag,1,strlen(pchar(ciag))-1); | ciag:=copy(ciag,1,strlen(pchar(ciag))-1); | ||
</ | </pre> | ||
Wersja z 17:23, 15 lut 2018
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 lang="delphi">
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
ciag:string;
begin
ciag:='12345';
ciag:=copy(ciag,2,strlen(pchar(ciag)));
showmessage(ciag);
end;
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);
Analigocznie, zwiększając liczbę możemy ucinać dowolną liczbę znaków :)