Как убить симлов из стринга?

← →
YuraKiller (2003-05-26 01:56) [0]

У меня есть строка например: s:="12nx63hcxGF5"
Нужно красиво убить например s[3].

← →
Нуу (2003-05-26 02:55) [1]

Красиво это как - с анимацией что ли?

← →
ilyasim (2003-05-26 05:08) [2]

var i,ubit:integer; c:char; s:string; begin while c<>"Z" begin c:=s[ubit]+#i; s[ubit]:=c; label1.caption:=s; inc(i) end; end;
:D

← →
Юрий Зотов (2003-05-26 06:00) [3]

Delete(S, 3, 1)

← →
Спрашивающий (2003-05-26 08:27) [4]

Была свободная минутка набросал(шутка)
procedure TForm1.Button1Click(Sender: TObject);
var
E:array[1..12] of TLabel;
I:Byte;
S,S1:String;
begin
for i:=1 to 12 do begin
E[i]:=TLabel.create(self);
E[i].parent:=Form1;
E[I].Caption:="";
E[i].left:=i-7;
E[i].top:=i*12;
E[i].Width:=45;
If i=12 Then E[I].Caption:="БУРА";
Application.ProcessMessages;
end;

for i:=12 Downto 2 do
begin
S1:=E[i].Caption;
If i<>12 Then E[i].Caption:="";
S:=Copy(S1,1,1);
Delete(S1,1,1);
If i=12 Then E[i].Caption:=S1;
Sleep(300);
E[i-1].Caption:=S;

Application.ProcessMessages;

end;
end;

← →
YuraKiller (2003-05-27 01:37) [5]

Кул, Спасибо!

Как убить симлов из стринга? Найти похожие ветки