Графический редактор в Delphi Опции

[SeregaR1Val]

Добрый день! Необходимо написать графический редактор следующего вида:
Окно разбито на 2 части, в левой вводятся параметры фигуры, в правой она отрисовывается. Например: для начала задан прямоугольник высотой 50 и шириной 100. Указываем высоту - 25, на ней ширина 50 и фигура должна преобразоваться, приняв форму песочных часов и далее в этом духе. Надеюсь нормально объяснил...

Программу еще не начал, код писать не прошу, необходима консультация в том, какие элементы выбрать для разработки, TPaintBox или TImage и т.д. и как лучше всё это отрисовывать, может кто может дать совет?

[IUnknown]

То, что Дельфи останавливается на строке с edit15.text - ни разу не значит, что ошибка именно в нем. Может быть и раньше по ходу программы.

что-то не так считывается?

Лишние ячейки грида заполняются пробелом. При проверке

if (GridRoom.Cells[2, i]<>'') and (GridRoom.Cells[3, i]<>'') then

заходит внутрь условия, и попытка

    a1:=10*StrToInt(GridRoom.Cells[2, i]);
    a2:=10*StrToInt(GridRoom.Cells[3, i]);

Приводит к краху. Ибо пробел - это не число, естественно. Два исправления: во-первых (процедура Tf_main.BitBtn1Click):

if (Trim(GridRoom.Cells[2, i])<>'') and (Trim(GridRoom.Cells[3, i])<>'') then

, тогда пробел не будет пропущен, и во-вторых, при чтении из файла:

      if TheClassName = 'TGrid' then
        with FindComponent(TheComponentName) as TStringGrid do
        begin
          ReadLn(f, R);
          RowCount := R;
          for i := 0 to R - 1 do
          begin
            ReadLn(f, s);
            if s <> '' then // <--- Вот эту строку добавь, чтоб лишнюю работу не делать
               Rows[i].Text := StringReplace(s, #9, #13#10, [rfReplaceAll]);
          end;
        end;

Сообщение отредактировано: IUnknown - 4.05.2011 14:07