Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Вниз

Генератор   Найти похожие ветки 

 
Lamak   (2002-11-03 02:56) [0]

Помогите, пожалуйста, мастера.
Есть программа - генератор номеров (от 000001 до 999999).
Генерация начинается по нажатию на кнопку, при этом все номера заносятся в Memo. Позле запуска, кнопка зависает, программа работает, но выйти из неё можно только аварийно. Что делатЬ?


 
777   (2002-11-03 03:05) [1]

Application.ProcessMessages делаешь?


 
Lamak   (2002-11-03 03:12) [2]

Да...все равно не закрывается.


 
777   (2002-11-03 03:18) [3]

var br:boolean
.....
в цикле ставишь проверку
if br=true then break;

должно останавливаться.


 
Lamak   (2002-11-03 03:20) [4]

Теперь закрывается.
Но на время генерации приложение как бы зависает, с этим что делатЬ?


 
777   (2002-11-03 03:23) [5]

Application.ProcessMessages в цикле стоит?


 
Lamak   (2002-11-03 03:25) [6]

Да.


 
777   (2002-11-03 03:32) [7]

Давай код. так трудно сказать,
хотя если каждое число (их как я понял 999999?) заносится в отдельную строку мемо, то надо использовать что-то другое, например просто писать числа в файл...


 
Новенький в Делфи   (2002-11-03 13:17) [8]

помоему у Memo есть BeginUpdate и EndUpdate .. может это поможет?

Memo1.BeginUpdate; (или Memo1.text.beginUpdate точно не момню)
For i:=1 to x do
begin
Application.processMessage;
...
end;
Memo1.EndUpdate;


 
Yegor Derevenets   (2002-11-03 15:12) [9]

Не лучше ли будет чуть-чуть помучаться с TThread? Там проверять Terminated и Suspended. Если что-нить тру, то закругляться. Только надо аккуратно будет написать это. Чтобы всяких Access Violation не вылетало. :-)
Кстати, ProcessMessage мне как-то тоже использовать не по душе. Не люблю кривостей. :-)


 
TTCustomDelphiMaster   (2002-11-03 15:30) [10]

Скорее всего алгоритм генерации номеров не самый оптимальный.


 
Cheester[X3]   (2002-11-03 16:42) [11]

Ну, без кода так не скажешь.


 
Lamak   (2002-11-06 02:16) [12]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f:integer;
begin
if Button1.Caption="


 
Alex4444444444   (2002-11-06 02:37) [13]


...
Application.ProcessMessages;
if Terminated then Exit;
end


I knopka, kotoraya by vystavlyala Terminated := True;
(ili v Form.OnCloseQuery).

Hotya, konechno, pisat" stol"ko v TMemo---eto ne bystro.


 
KSergey   (2002-11-06 06:59) [14]

А что вы хотели получит? Чтобы останавливыалось? А с чего оно будет останавливаться по-вашему?! Где остановка-то циклов?
И еще. А memo выдержит такое кол-во строк? и вообще- какой в том смысл - запихнуть столько строк в memo? Это же кошмар!


 
murzikN   (2002-11-06 09:46) [15]

Кстати, MEMO не держит больше 64К


 
JohnnyJ   (2002-11-06 10:28) [16]


> murzikN (06.11.02 09:46)

Кстати, MEMO не держит больше 64К


под XP - держит...

2Lamak

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
if Button1.Caption = "Start" then
begin
Button1.Caption := "Stop";
Terminated := False;
for i:= 1 to 999999 do
begin
Memo1.Lines.Add(StringOfChar("0", 6 - Length(IntToStr(i))) + IntToStr(i));
Application.ProcessMessages;
if Terminated then
break;
end;
end
else
begin
Button1.Caption := "Start";
Terminated := True;
end;
end;

Кстати, а чем обусловлена необходимость подобным образом тиранить бедный контрол?



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-59269
LittleBat
2002-11-06 22:59
2002.11.18
Помогите!


14-59399
iNew
2002-10-31 04:37
2002.11.18
В Delphi 5 при возникновении ошибки во время отладки,переключение


3-58987
Colonel Isaev
2002-10-28 16:16
2002.11.18
Вопрос по quick report


4-59495
Kacnep
2002-10-08 14:14
2002.11.18
HDC канваса.фонта у Тривию как освободить???


14-59417
maxim2
2002-10-25 08:47
2002.11.18
Непорали сделать форум по Kylix ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский