Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите найти ошибку! 
:(
    Опции темы
BLACK_KOT
Дата 17.4.2009, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1
Код

procedure TForm1.Button1Click(Sender: TObject);
var b:array[1..8] of char;  i:integer; s:string;
begin
SendMessage(Edit1.Handle,WM_GETTEXT,8,integer(@b));
for i:=1 to 8 do if b[i] in ['0'..'9'] then s:=s+b[i];
Label1.Caption:=inttostr(length(s));
end;


до длинны строки меньше 5 символов говорит что кол- во символов на 1 больше! а при длинне строки  больше 5 символов выдаёт нужное число! почему так происходит? всю голову сломал!
помогите!


--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
RomanEEP
Дата 17.4.2009, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8
Локальные переменные процедур выделяются в стеке, их значения не инициализированы и забиты мусором в стеке, оставщемся после работы других процедур
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  b:array[1..8] of char;
  i:integer;
  s:string;
begin
  FillChar(b, SizeOf(b), 0);
  s := '';
  SendMessage(Edit1.Handle,WM_GETTEXT,8,integer(@b));
  for i:=1 to 8 do
    if b[i] in ['0'..'9'] then
      s:=s+b[i];
  Label1.Caption:=inttostr(length(s));
end;



--------------------
Электронные экзамены
PM MAIL   Вверх
BLACK_KOT
Дата 17.4.2009, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1
спасибо большое, очень обязан!


--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
THandle
Дата 17.4.2009, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

M
THandle		BLACK_KOT, пожалуйста, называйте темы более осмысленно. Людям будет удобнее найти решение в будущем.
И не забывайте помечать вопрос решенным. 
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0556 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.