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>") |
m (Zastępowanie tekstu - "<source lang="delphi">" na "<pre>") |
||
Linia 4: | Linia 4: | ||
w tym celu użyjemy prostej komendy | w tym celu użyjemy prostej komendy | ||
< | <pre> | ||
ciag:=copy(ciag,2,strlen(pchar(ciag))); | ciag:=copy(ciag,2,strlen(pchar(ciag))); | ||
</pre> | </pre> | ||
< | <pre> | ||
procedure TForm1.ListBox1DblClick(Sender: TObject); | procedure TForm1.ListBox1DblClick(Sender: TObject); | ||
var | var | ||
Linia 26: | Linia 26: | ||
Jeżeli z kolei, będziemy chcieli pozbyć się 1 znaku z końca linii. | Jeżeli z kolei, będziemy chcieli pozbyć się 1 znaku z końca linii. | ||
< | <pre> | ||
ciag:=copy(ciag,1,strlen(pchar(ciag))-1); | ciag:=copy(ciag,1,strlen(pchar(ciag))-1); | ||
</pre> | </pre> |
Aktualna wersja na dzień 14:28, 18 lut 2018
Czasami zdarza się że mamy string.
I potrzebujemy pominąć np pierwszy (lub więcej) znak. w tym celu użyjemy prostej komendy
ciag:=copy(ciag,2,strlen(pchar(ciag)));
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.
ciag:=copy(ciag,1,strlen(pchar(ciag))-1);
Analigocznie, zwiększając liczbę możemy ucinać dowolną liczbę znaków :)