Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c