Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

'' ~ ' '?

Toxa_ua © (2005-11-03 23:55:00)
Edit1.Text:='' и Edit2.Text:=' ' эквивалентны?

(-|+)?[0-9] (2005-11-04 00:49:00) [1]

> Toxa_ua © (04.11.05 00:45) [14]
> А может это Delphi глючитть, если оно целый день работало
> и ни разу не выключалось?

Ну, если целый день без выключения, то скорее глючишь сам. Пора бай-бай. :)

Toxa_ua (2005-11-04 00:48:00) [2]
Я заполняю их вручную. A Params_Hide - Пока пустая процедура, котороя будет в будующем скрывать с экрана некоторые компоненты.

злобная танька (2005-11-04 00:48:00) [3]
а может это не делфи а кто то другой глючит а?

злобная танька (2005-11-04 00:47:00) [4]

> Toxa_ua © (04.11.05 00:45) [14]

нет ты мне скажи хде там ты заполнение эдитов нашол :)

Toxa_ua (2005-11-04 00:45:00) [5]
А может это Delphi глючитть, если оно целый день работало и ни разу не выключалось?

злобная танька (2005-11-04 00:45:00) [6]
> ///////ЗДЕСЬ Я ЗАПОЛНЯЮ EDIT'Ы А ПОТОМ НАЖИМАЮ ЭТУ КНОПКУ:
>
> procedure TForm2.SpeedButton1Click(Sender: TObject);
> var i:Integer;
> begin
> for i := 0 to ComponentCount-1 do
> if (Components[i] is TEdit) then
> if TEdit(Components[i]).Text='' then
> ShowMessage('Компонент ' + Components[i].Name + '
> пустой!');
> end;

и хде ты заполняешь эдиты?
не вижу что то я. покажи пожалста!

> Params_HIDE;

это шо это такое??

(-|+)?[0-9] (2005-11-04 00:41:00) [7]

> злобная танька (04.11.05 00:31) [8]
> шо вы мне парите? спецально проверила - усё работает нормально.
>

Да, всё в порядке, но где-то мне это уже встречалось:)

Toxa_ua (2005-11-04 00:39:00) [8]
Type
Parameters = record
Name:String[50]; //Name
Comm:String; //Comment
Date:String[10]; //Date
P4:String;
P5:String;
end;
var
Params:Parameters;

Procedure Init();
begin
Params_HIDE;
Params.Name:=' ';
Params.Comm:=' ';
Params.Date:=' ';
Params.P4:=' ';
Params.P5:=' ';
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Init();
end;
///////ЗДЕСЬ Я ЗАПОЛНЯЮ EDIT'Ы А ПОТОМ НАЖИМАЮ ЭТУ КНОПКУ:
procedure TForm2.SpeedButton1Click(Sender: TObject);
var i:Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
if TEdit(Components[i]).Text='' then
ShowMessage('Компонент ' + Components[i].Name + ' пустой!');
end;
///////Выводятся сообщения что Edit'ы пустые

Toxa_ua (2005-11-04 00:33:00) [9]
ОпааСтепаа. Не тут то было. Щас напишу. Оно чето вооще не проверяет!!

злобная танька (2005-11-04 00:32:00) [10]

> Toxa_ua © (04.11.05 00:31) [7]

ага... ну ладно хоть ошибку нашол :)

злобная танька (2005-11-04 00:31:00) [11]
шо вы мне парите? спецально проверила - усё работает нормально.

Toxa_ua (2005-11-04 00:31:00) [12]
Я тут пока код выбирал тебе. Обнаружил ошибку. Я инициализировал Не Edit'ы а переменные которые должны были принимать значение этих Edit'ов.
Хотя раньше я эту ошибку не замечал и чет долго не мог обнаружить до настоящего времени. -))))))))))))))))). Спасибо за то что попросила дать код -))))

(-|+)?[0-9] (2005-11-04 00:27:00) [13]
В TEdit на самом деле, если первым и единственным ввести знак пробела, то в итоге там почему-то ничего не будет.

злобная танька (2005-11-04 00:21:00) [14]
что-то ты там накосячил.
давай весь код :)

Toxa_ua (2005-11-04 00:18:00) [15]
Я это прекрасно понимаю. Но например я Инициализирую Edit1.Text:=' '.
А при проверке
if Edit1.Text='' then ShowMessage(Поле Пустое)
оказывается что в итоге проверка срабатывает, т.е Edit1.Text=''.

злобная танька (2005-11-04 00:11:00) [16]
если проверка не срабатывает (у смысле не выдает сообщение) то значит поле не пустое. или у тебя всё же поле пустое, или проверка срабатываетна непустом поле. второго не может быть никаким образом если до етого всё было обнулено или у тебя какая то странная версия делфи :)

Toxa_ua (2005-11-04 00:03:00) [17]
Я это прекрасно понимаю. Но например я Инициализирую Edit1.Text:=' '.
А при проверке
if Edit1.Text='' then ShowMessage(Поле Пустое)
оказывается что в итоге проверка не срабатывает, т.е Edit1.Text=''.

злобная танька (2005-11-03 23:58:00) [18]
нет.
' ' - это пробел
'' - это пусто.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »