Форум: "Прочее";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Вниз
Придумайте название для новой торговой системы. Найти похожие ветки
← →
Сатир (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 вся ветка
Форум: "Прочее";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.53 MB
Время: 0.043 c
