Jak usunąć z ciągu znaków "12121231212" znak

0

Jak w temacie.
To tylko przyjkkład.
Znak może byc w innym miejscu i może być inny niż "3"

HELPPPP {glowa} {glowa} {glowa}

0

S:='12121231212';

Jesli wiesz ze '3' (czy co tam chcesz) jest tylko jeden:

Delete(s, Pos('3',S),1); //zamiast 3 wstaw co chcesz

Jesli moze byc wiecej '3':

repeat
Delete(s, Pos('3',S),1);
until Pos('3',S)=0;

--
Pawel {Delphi6 }

Po pierwsze: naciśnij F1

0

var
tekst:string;
poz:integer;
begin
tekst:='12121231212';
poz:=Pos('3',tekst);
tekst:=Copy(tekst,0,poz-1)+Copy(tekst,poz+1,Length(tekst)-1);
ShowMessage(tekst);
end;--Jest jeszcze jeden błąd ... :)

0

Dzięki. Dokładnie o to chodziło.
Możesz mi jeszcze napisać co oznaczają x,y w :
pos(x,y)

THX

0

Luki napisał:
Dzięki. Dokładnie o to chodziło.
&gtMożesz mi jeszcze napisać co oznaczają x,y w :
&gtpos(x,y)
&gt

x - string ktorego szukasz
y - string w ktorym szukasz

F1, czlowieku!!!!!!!!--Pawel {Delphi6 }

Po pierwsze: naciśnij F1

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0