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
(Utworzył nową stronę „Czasami zdarza się że mamy string. I potrzebujemy pominąć np pierwszy znak. w tym celu użyjemy prostej komendy <pre> ciag:=copy(ciag,2,strlen(pchar(ciag))); </pr...”) |
|||
| Linia 4: | Linia 4: | ||
w tym celu użyjemy prostej komendy | w tym celu użyjemy prostej komendy | ||
< | <source lang="delphi"> | ||
ciag:=copy(ciag,2,strlen(pchar(ciag))); | ciag:=copy(ciag,2,strlen(pchar(ciag))); | ||
</ | </source> | ||
< | <source lang="delphi"> | ||
procedure TForm1.ListBox1DblClick(Sender: TObject); | procedure TForm1.ListBox1DblClick(Sender: TObject); | ||
var | var | ||
| Linia 18: | Linia 18: | ||
showmessage(ciag); | showmessage(ciag); | ||
end; | end; | ||
</ | </source> | ||
Wróci ona nam wartości "2345". | Wróci ona nam wartości "2345". | ||
| 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. | ||
< | <source lang="delphi"> | ||
ciag:=copy(ciag,1,strlen(pchar(ciag))-1); | ciag:=copy(ciag,1,strlen(pchar(ciag))-1); | ||
</ | </source> | ||
Analigocznie, zwiększając liczbę możemy ucinać dowolną liczbę znaków :) | Analigocznie, zwiększając liczbę możemy ucinać dowolną liczbę znaków :) | ||
Wersja z 03:18, 20 sty 2011
Czasami zdarza się że mamy string.
I potrzebujemy pominąć np pierwszy 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 :)