Скачать: CL | DM;

Придумайте название для новой торговой системы.   Найти похожие ветки 

← →
Сатир   (2006-10-27 16:08) [40]

> А рабочее название у системы есть?

есть. новая торговая система:-)

---

← →
Alien1769 ©   (2006-10-27 16:15) [41]

>
> > А рабочее название у системы есть?
>
> есть. новая торговая система:-)

Это случайно не с помощью микрочипов ?

---

← →
Курдль ©   (2006-10-27 16:16) [42]

"МММ"

---

← →
Сатир   (2006-10-27 16:52) [43]

> Это случайно не с помощью микрочипов ?

без помощи микрочипов

---

← →
DSKalugin ©   (2006-10-27 16:58) [44]

ООО "Рога и Копыта"

---

← →
sergey888   (2006-10-27 17:01) [45]

без помощи микрочипов

на счетах что-ли?

---

← →
tesseract ©   (2006-10-27 17:02) [46]

> Сатир   (27.10.06 16:08) [40]


1c killer version 10.0.0.0

---

← →
kaif ©   (2006-10-27 17:26) [47]

Меркурий.

Выбери какого-нибудь древнегреческого бога, покровительствовавшего торговле.

---

← →
TIF ©   (2006-10-27 17:32) [48]

super trade

---

← →
Ketmar ©   (2006-10-27 17:50) [49]

"новая торговая система имени Саши Белого"

---

← →
easy ©   (2006-10-27 18:35) [50]

procedure TForm1.Button1Click(Sender: TObject);
var
 S1,S2,S3,S4,S5:string;
 i:integer;
begin
 S1:="БВГДЗКЛМНРСТ";
 S2:="аеиоую";
 S3:=AnsiLowerCase(S1);
 S4:=" сндтпрв";
 memo1.Clear;
 for i := 0 to 100   do
   S5:=S5+S1[random(length(S1)-1)+1]+
     S2[random(length(S2)-1)+1]+
     S3[random(length(S3)-1)+1]+
     S3[random(length(S3)-1)+1]+
     S2[random(length(S2)-1)+1]+
     S4[random(length(S4)-1)+1]+", ";
 Memo1.text:=S5;
end;

---

← →
Плохиш ©   (2006-10-27 18:37) [51]

Обдираловка

---

← →
kurvolovik   (2006-10-31 10:19) [52]

В этот код ещё можно добавить SetLength(S5, Length(S5)-2). Для красивости :-)

---

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

Скачать: CL | DM;



Память: 0.53 MB
Время: 0.03 c