Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.04.2011, 23:07
fractalninja fractalninja вне форума
Прохожий
 
Регистрация: 21.04.2011
Сообщения: 2
Репутация: 10
По умолчанию Проблема с InputBox

Здраствуйте форумчане. Решил взяться за программирование, после небольшого изучения теории сел писать программу и сразу же наступил на грабли. Перед тем как написать перерыл форум, ничего похожего на свою проблему не нашёл
Суть такова, в программе присутствует динамический массив, где-то на просторах интернета нашёл код который демонстрирует как можно вручную заполнять массив. Принцип там такой - нажимаешь кнопку, программа спрашивает сколько элементов в массиве и далее создаёт поля TEdit под количество элементов. Сделал адаптацию под свои значения, но вот незадача компилируется всё без ошибок, однако окошко InputBox не появляется не представляю в чём проблема, может кто-нибудь подскажет нубу как переступить через эти грабли.
Приведу код
Код:
unit qwe123qwe;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Arr: array of TEdit;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var c: string;
     i,n:integer;
begin
  c := InputBox('Vvedite','4islo:','');

  try
  n := StrToInt(c);
  except
  on EConvertError do ShowMessage('problem...');
  end;

 SetLength(Arr, n);
  for i:=0 to n-1 do begin
   Arr[i] := TEdit.Create(Self);
   Arr[i].Parent := Self;

   Arr[i].Top:=i*Arr[i].Height;
   Arr[i].Left:=(ClientWidth-Arr[i].Width)div 2 ;
   Arr[i].Text:='Ïîëå '+IntToStr(i);
  end;
 Button1.Visible:=False;
end;
end.
Спасибо за внимание, очень надеюсь на отклик.
Ответить с цитированием
  #2  
Старый 21.04.2011, 23:14
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

странно, у меня все появляется.........
Ответить с цитированием
  #3  
Старый 21.04.2011, 23:15
fractalninja fractalninja вне форума
Прохожий
 
Регистрация: 21.04.2011
Сообщения: 2
Репутация: 10
По умолчанию

в этом-то и соль, гуглил много, ничего похожего не встречал.
может проблема в моём delphi, не знаю даже на что подумать.
Ответить с цитированием
  #4  
Старый 21.04.2011, 23:19
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

у меня 7-ка, может другой проект создашь, и там копи пасте
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:05.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025