Показать сообщение отдельно
  #4  
Старый 16.08.2014, 19:01
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 554
Версия Delphi: XE5
Репутация: 18
По умолчанию

Код:
begin
Edit1.text:='0';
Edit2.text:='0';
for I := 1 to Table1.RecordCount do
begin
if table1.FieldByName('sex').Value='Man' then
edit1.text:=inttostr(strtoint(Edit1.text)+1);
end else
begin
edit2.text:=inttostr(strtoint(Edit2.text)+1);
end;
Table1.next;
end;
__________________
Нет ничего не возможного. Вопрос только во времени...
Ответить с цитированием