Программирование Т. 5

все равно вылазиет

а, ну ясен хуй вылезает, если ты выводишь сообщение, чтобы форму заполнили, но продолжаешь выполнять функцию

или ставь весь код ниже в блок else после проверки на пустоту или выйди из функции сразу после сообщения о проблеме

у тебя ж делфи? там есть директива Exit

if (edit1.text='') and (edit2.text='') and (edit3.text='') and (edit4.text='') then begin showmessage('Zapolnite formi'); exit; end;

как-то так

помогло, спасибо

точнее так

if (edit1.text='') or (edit2.text='') or (edit3.text='') or (edit4.text='') then begin showmessage('Zapolnite formi'); exit; end;

а она вроде и без екзита норм работает

ну варианта решения проблемы два - или экзит, или же поместить весь код ниже (который обрабатывает данные из формы) в блок else, оба варианта использовать смысла нет

ну а через елсе сделал

ну а через елсе сделал

ну а через елсе сделал

я бы всё-таки советовать делать через экзит, это куда более корректная практика

представь себе что у тебя в функции таких три-четыре условия будет

в итоге получится

if (a > 0) then
   dosmth1();
else
begin
   if (b > 0) then
       dosmth2();
   else
   begin
       if (c > 0) then
       ...

       end
   end
end

в то время как с покиданием функции

if (a > 0) then
begin
   dosmth1();
   exit;
end;

if (b > 0) then
begin
   dosmth2();
   exit;
end;

if (с > 0) then
begin
   dosmth3();
   exit;
end;

и ещё, научись по минимому в разметку кода, тебе же самому будет проще его читать и искать где там неполадки, чем высматривать что-то в этой каше, тем более учитывая, что тут в синтаксисе ебаные begin end

ну да так реал по проще. спс

нашел

вообщем нужно чтобы в обоих эдитах было записано одно и тоже

только вот если я записываю что нибудь а потом жму backspace

то в 1 эдите он удаляет, а во 2 символ бекспейса появляется

что делать?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9': ;
',','.': if (edit1.text='') or ((pos(decimalseparator, edit1.text))<>0) then key:=#0 else key:=decimalseparator;
'-': if (edit1.text<>'') then key:=#0;
' ': key:=#0;
end;
edit2.text:=edit2.text+key;
end;

оу, а там нет обработчика на изменение содержимого вместо обработчика кнопок?

это будет намного проще если сделать edit2.text = edit1.text;

но есть другой вариант - узнать какой код у бекспейса и обработать его отдельно

if (key = код_бекспейса) then

edit2.text = edit2.text (заставить его убрать последний символ)

else

edit2.text:=edit2.text+key;

end

и у этого подхода на самом деле есть один большой минус, оно не обрабатывает позицию курсора, тоесть если написать или удалить что-то внутри строки - текст во 2 поле пойдёт по пизде, в общем этот обработчик нажатий тебе гарантировано будет постоянно вылезать рассинхронизацией содержимого

бля, стоп

а не проще ли будет просто забить хуй на аргументы обработчика кнопок и всё тело метода оформить как

edit2.text:=edit1.text;

?

если тупо сделать edit2.text:=edit1.text;

то в edit2 будет на 1 символ меньше

если сделать edit2.text:=edit1.text+key;

тогда бекспейс только 1 раз оставил свой символ а потом будет делитить

кароч хз как это сделать

убрал это равенство и по клику на кнопку если они не равны сделал так чтобы выскакивало сообщение

если тупо сделать edit2.text:=edit1.text;

то в edit2 будет на 1 символ меньше

тогда ищи обработчик TextChanged, ContentChanged, TextEdited, неебу как оно должно называться

но обработчик кнопок для синхронизации содержимого - рак

сделал на локалхосте через аякс выполнение шарповской проги и возврат результата

заливаю на сервак - возвращает null

думал там запрещен exec, давай гуглить

а потом увидел с phpmyadmin вот это

• Apache/2.2.17 (Unix) PHP/5.2.14
  
• :trollface:
  

5.2 - элита

ваще пздц

хотя я в пхп нуб, так что пока пох гдето читал что 5.3 прям ппц критичное обновление

сделал на локалхосте через аякс выполнение шарповской проги и возврат результата

заливаю на сервак - возвращает null

думал там запрещен exec, давай гуглить

а потом увидел с phpmyadmin вот это

• Apache/2.2.17 (Unix) PHP/5.2.14
  
• :trollface:
  

Что за шарповская прога? Экзешник?

Что значит на сервере через аякс? На ноль поделил.

Что заливаешь на сервак? Еакой еще нул?

Апачи и пхп 5.2

Удачи кароче.

что за вопросы странные

если тупо сделать edit2.text:=edit1.text;

то в edit2 будет на 1 символ меньше

тогда ищи обработчик TextChanged, ContentChanged, TextEdited, неебу как оно должно называться

 

но обработчик кнопок для синхронизации содержимого - рак

у эдитов есть свойство онченж

по поводу обработчика кнопок соглашусь

если тупо сделать edit2.text:=edit1.text;

то в edit2 будет на 1 символ меньше

тогда ищи обработчик TextChanged, ContentChanged, TextEdited, неебу как оно должно называться

 

но обработчик кнопок для синхронизации содержимого - рак

у эдитов есть свойство онченж

по поводу обработчика кнопок соглашусь

вот пусть именно его и юзает, я просто не знаю как в делфи оно называется, но уверен что такое должно быть