max lenght

[beemoto]

хай всем!
как зделать чтоб после введении 7 цифры в едите происходило нажатие по кнопки!?
___________________________________ ______________________________
вот ище:
как зделать сортировку ну т.е:
у мну в мемо идут номера:
444444444
424242424
423423423
423142314
432154321
==========
как мне зделать чтоб первый сохранился в файл x.txt, второй xy.txt, третий в xyz.txt???

[Ky3Heu,]

Создай переменную типа Integer. Например i. Задаешь i:=1;
Пишешь потом для Edita процедуру OnChange:

i:=i+1;
if i=7 then 
begin
button1click(Sender);
Edit1.Text:='';
Edit1.setfocus;
i:=1;
End;

А по второму вопросу я не понял ваще. Что значит :

как мне зделать чтоб первый сохранился в файл x.txt, второй xy.txt, третий в xyz.txt???

Что первый, а что второй????? И причем здесь сортировка??? Это массив или что??? Пиши в личняк. Про спасибо не забудь :D

[Juffin]

я тоже что-то по второму не очень понял, что за x, xy, xyz и какое это имеет отношение к сортировке и вообще к "max lenght"?

[beemoto]

второй неимеет отношения к первому(прост нехачу засарять форум темами=)) ну мне нада сортировать УИНы по количесву цифр в номере(многие наверно знают Регер ICQ UIN'ов by sai_NT)
вот я хачу подобное

[beemoto]

Ky3Heu, , неполучается=(
несрабатывает

[Ky3Heu,]

Сообщение от beemoto

второй неимеет отношения к первому(прост нехачу засарять форум темами=)) ну мне нада сортировать УИНы по количесву цифр в номере(многие наверно знают Регер ICQ UIN'ов by sai_NT)
вот я хачу подобное

Для подобных дел используй компонент ListBox. Там есть опция Sorted. Ставь её в True и он тебе строки сам отсортирует... А дальше обрабатывай Items

[Ky3Heu,]

Сообщение от beemoto

Ky3Heu, , неполучается=(
несрабатывает

i- Это ГЛОБАЛЬНАЯ переменная, а не локальная. Ставь ее в ГЛОБАЛЬНОМ разделе VAR, а в OnShow формы пропиши i:=0 для 7 цифр и всё.

[beemoto]

Ky3Heu, , спс!
первый плиз посмотри чет нехочет...

[Ky3Heu,]

procedure TForm1.Edit1Change(Sender: TObject);
begin
i:=i+1;
if i=7 then
begin
Button1Click(Sender);
Edit1.Text:='';
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
i:=0;
end;
У меня все работает прекрасно. Передирай код....

[FaTaL]

Если вы я вас правильно понял, то чтобы при вводе в ЕДИТ цифры 7 у вас срабатывала какая то процедра, то это так:
В процедуре OnKeyPress для EDIT пишем код:

case key of
'7' : {тут пишете вашу процедуру например} Button1.Click;
end;