Jak uciąć jeden lub więcej znaków z początku lub końca stringa ? (delphi): Różnice pomiędzy wersjami

Z Podręcznik Administratora by OPZ SGU
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...”)
 
m (Zastępowanie tekstu - "<source lang="delphi">" na "<pre>")
 
(Nie pokazano 4 pośrednich wersji utworzonych przez tego samego użytkownika)
Linia 1: Linia 1:
Czasami zdarza się że mamy string.
Czasami zdarza się że mamy string.


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


Linia 32: Linia 32:


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

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 :)