HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу У меня проблемка с делфи…
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

У меня проблемка с делфи…
  #1  
Старый 15.09.2006, 14:43
Dmitriy507
Участник форума
Регистрация: 29.04.2006
Сообщений: 171
Провел на форуме:
333060

Репутация: 63
По умолчанию У меня проблемка с делфи…
Привет!
У меня проблемка с делфи…
Короче вот:
…
const ang: string='массив';
…
if CheckBox1.Checked then
for d := 1 to StrToInt(SpinEdit2.text) do// SpinEdit2 это сколько раз делается массив

if CheckBox1.Checked then
for a := 1 to StrToInt(SpinEdit1.text) do//количество символов в генерируемом
Memo1.Text := Memo1.Text + ang[random(length(ang)+1)];
Но вводилось он не кучей а после каждого ввода на новой строчке…
Как это сделать?

И ешо к это му же михонизму…
Нада чтоб элемент Gauge1 отображал ход выполнения вышеизложенной операции.
 
Ответить с цитированием

  #2  
Старый 15.09.2006, 14:52
[hidden]
Участник форума
Регистрация: 05.11.2005
Сообщений: 103
Провел на форуме:
425441

Репутация: 31
По умолчанию
Что-то я вопроса не понял.. А был ли мальчик? (с)

Если нужно сделать вывод с новой строки, то Memo1.Text := ...... + #10#13 попробуй.
Последний раз редактировалось [hidden]; 15.09.2006 в 14:59..
 
Ответить с цитированием

  #3  
Старый 15.09.2006, 16:14
Utochka
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
Провел на форуме:
1867718

Репутация: 268


По умолчанию
Струдом понял че за хрень тебе нужна.

memo1.Lines.Add() - написал на память так что проверь

на счет прогресс бара. В начале цикла пишешь вот так
ProgressBar1.Position:=0;
потом надо присвоить прогрессбару какой то максимальный результат (число).
потом вот так ProgressBar1.Position:=i; - тоесть после каждого прохода цикла прибавляет какое то n-ое число чтобы прогресс рос.

Объяснил на пальцах)) честно говоря сам плохо понял что написал, почитай доки там все есть
 
Ответить с цитированием

  #4  
Старый 15.09.2006, 16:29
[hidden]
Участник форума
Регистрация: 05.11.2005
Сообщений: 103
Провел на форуме:
425441

Репутация: 31
По умолчанию
NeX, а после присваивания ProgressBar1.Position := i; надо тогда уж обязательно вызывать Application.ProcessMessages; , иначе никакого вывода не будет, обновление интерфейса имеет низкий приоритет выполнения..

А вот что за Gauge... нафига?
 
Ответить с цитированием

  #5  
Старый 15.09.2006, 16:38
gemaglabin
Banned
Регистрация: 01.08.2006
Сообщений: 725
Провел на форуме:
7681825

Репутация: 4451


По умолчанию
[hidden] Application.ProcessMessages; это плохой тон в програмировании.Идет перезагрузка всего TApplication и резко падает снижение скорости работы тогоже цикла.

По теме могу сказать
Код:
Memo1.Lines.Add(ang[random(length(ang)+1)]);
Или
Memo1.Text := Memo1.Text + Ang[random(length(ang)+1)]+#13#10;
А с прогрессбаром так

Код:
Gauge1.MaxValue := StrToInt(SpinEdit1.text);
For i := 0 to StrToInt(SpinEdit1.text) -1 do begin
[Gauge1.Progress := i;
Memo1...
 
Ответить с цитированием

  #6  
Старый 15.09.2006, 21:01
Dmitriy507
Участник форума
Регистрация: 29.04.2006
Сообщений: 171
Провел на форуме:
333060

Репутация: 63
По умолчанию
извините что так понятно обьяснил...(
что вы тут подсказали я все поробывал...
одно не правельно
сначало генерируется массив букв. пароль например... потом оно добовляется в мемо1 под строчкой 0, затем генерируется второе значение и записывается в строчку 1.....
а в вашем механизме оно записывается по буквам...
и с прогресс баром тож тромба он в конце остонавливается на 80-99 по разному... не доходя до 100.... ошибка в -1 его надо было убрать...
вот...
Memo1.Text := Memo1.Text + Ang[random(length(ang)+1)]ЗДЕСЬ СДЕЛАТЬ ENTER;
заранее спасибо!

зы
всем кто помог в конце составлю плюсы!
 
Ответить с цитированием

  #7  
Старый 15.09.2006, 22:03
[hidden]
Участник форума
Регистрация: 05.11.2005
Сообщений: 103
Провел на форуме:
425441

Репутация: 31
По умолчанию
[ДУБЛЬ 2]

Memo1.Text := Memo1.Text + Ang[random(length(ang)+1)] + #10#13;

А как ты ProgressBar используешь? Как _именно_?

Кстати, а чем тебе не нравится метод Memo1.Lines.add('строка'); ?
 
Ответить с цитированием

  #8  
Старый 16.09.2006, 09:16
Dmitriy507
Участник форума
Регистрация: 29.04.2006
Сообщений: 171
Провел на форуме:
333060

Репутация: 63
По умолчанию
не не то он генерирет правельно но с одиными знаками...
как бы обьяснить....
эта фигня похожа на генератор паролей... пароли генерируются в список...вот...
с прогресом усе ясно....
может лучше использовать ListBox1?
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Письма девочек-подростков в журнал "Yes!" Lolik Болталка 43 03.03.2009 22:43
Мой ржачный разговор в аське с кем-то вроде как с античата, как я подумал Дрэгги Болталка 21 22.07.2007 12:33
Вообщем, Я показал на что Я способен, так что может померимся? Зачем меня раздражать? Кулицов Болталка 12 21.05.2005 13:45



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.