~ ?

← →
Toxa_ua © (2005-11-03 23:55) [0]

Edit1.Text:="" и Edit2.Text:=" " эквивалентны?

← →
злобная танька (2005-11-03 23:58) [1]

нет.
" " - это пробел
"" - это пусто.

← →
Toxa_ua © (2005-11-04 00:03) [2]

Я это прекрасно понимаю. Но например я Инициализирую Edit1.Text:=" ".
А при проверке
if Edit1.Text="" then ShowMessage(Поле Пустое)
оказывается что в итоге проверка не срабатывает, т.е Edit1.Text="".

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

если проверка не срабатывает (у смысле не выдает сообщение) то значит поле не пустое. или у тебя всё же поле пустое, или проверка срабатывает на непустом поле. второго не может быть никаким образом если до етого всё было обнулено или у тебя какая то странная версия делфи :)

← →
Toxa_ua © (2005-11-04 00:18) [4]

Я это прекрасно понимаю. Но например я Инициализирую Edit1.Text:=" ".
А при проверке
if Edit1.Text="" then ShowMessage(Поле Пустое)
оказывается что в итоге проверка срабатывает, т.е Edit1.Text="".

← →
злобная танька (2005-11-04 00:21) [5]

что-то ты там накосячил.
давай весь код :)

← →
(-|+)?[0-9] (2005-11-04 00:27) [6]

В TEdit на самом деле, если первым и единственным ввести знак пробела, то в итоге там почему-то ничего не будет.

← →
Toxa_ua © (2005-11-04 00:31) [7]

Я тут пока код выбирал тебе. Обнаружил ошибку. Я инициализировал Не Edit"ы а переменные которые должны были принимать значение этих Edit"ов.
Хотя раньше я эту ошибку не замечал и чет долго не мог обнаружить до настоящего времени. -))))))))))))))))). Спасибо за то что попросила дать код -))))

← →
злобная танька (2005-11-04 00:31) [8]

шо вы мне парите? спецально проверила - усё работает нормально.

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

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

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

← →
Toxa_ua © (2005-11-04 00:33) [10]

ОпааСтепаа. Не тут то было. Щас напишу. Оно чето вооще не проверяет!!

← →
Toxa_ua © (2005-11-04 00:39) [11]

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"ы пустые

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

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

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

← →
злобная танька (2005-11-04 00:45) [13]

> ///////ЗДЕСЬ Я ЗАПОЛНЯЮ 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;

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

А может это Delphi глючитть, если оно целый день работало и ни разу не выключалось?

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

← →
злобная танька (2005-11-04 00:48) [16]

а может это не делфи а кто то другой глючит а?

Я заполняю их вручную. A Params_Hide - Пока пустая процедура, котороя будет в будующем скрывать с экрана некоторые компоненты.

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

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

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

~ ? Найти похожие ветки