Убрать нули!!!)

[artemavd]

Возникла у меня такая идея. А ведь было бы не плохо, если бы можно было избавляться на форме от нулей. Я имею ввиду вот что. Моя программа состоит из Edit-ов и label-ов. Как бы мне реализовать такую процедуру, которая бы по нажатию на кнопку убирала бы нули в тех ячейках, в которых они есть. Например, пусть у меня имеются четыре Edit-а: Edit1, Edit2, Edit3, Edit4. Edit1 и Edit2 у меня имеют значения 2 и 4 соответственно. А Edit3 и Edit4 значения имеют нули. И, нажав на кнопку у меня бы в этой строчке нули бы, там где они стоят, стерлись бы, а остались бы только числа большие нуля. А в том окошке, где был ноль, то не было бы никакой цифры. Как это можно сделать?

[Карась]

Написать функцию которая считывает из Едита строку, обрабтывает её удаляя нли и кладёт на место.

Вообще вопрос странный ибо непонятно как может не быть хоть какихто соображений на эту тему....

[artemavd]

Мне кажется, что вопрос не странный. Если я создам кнопку и напишу туда Form1.Edit1.Text:='0';, то это сработает. А я хочу, чтобы программа сама искала те Edit-ы и label-лы, в которых стоят нули и удаляла их.

[dr.Chas]

Попробуй так

Procedure KillZero;
var comp: TComponent;
    n: integer;       //количество компонентов Edit
begin
  for i:=1 to n do
    begin
      comp:=FindComponent('Edit'+IntToStr(i));
      if (comp as TEdit).text='0' then (comp as TEdit).text:=''; 
    end;
end;

[artemavd]

Спасибо, попробую))

[Карась]

Похожая тему уже была и вот код на её основе который убирает все нули из всех найденых лабелов и едитов.

Var I, N : Integer;
      Ish, Kon : String;

Begin
For I := 0 To Form1.ComponentCount - 1  Do

If (Form1.Components[i] Is TLabel) Or
   (Form1.Components[i] Is TEdit) Then
  Begin
    Ish := TLabel(Form1.Components[i]).Caption; // ???
    Kon := '';

    For N := 1 To Length(Ish) Do
    If Ish[N] <> '0' Then Kon := Kon + Ish[N];

    TLabel(Form1.Components[i]).Caption := Kon; // ???
  End;

Хотя у меня возникает вопрос почему в строчках где я поставил вопросики на результат работы программы не влияет начальное слово TLabel... Проще говоря заменив Tlabel на TButton неменяет ход работы....

[Ring0Sn]

Карась, потомучто такая конструкция указывает НЕ ЯВНО на класс обьекта, в отличие от оператора AS, ктр делает это ЯВНО
Попробуй записать это через AS и получишь исключение

[Arigato]

Проще говоря заменив Tlabel на TButton неменяет ход работы...

Потому что это всего лишь преобразование типа. А т.к. метод Caption есть и у TButton, то запись оказывается вполне корректной.
Хотя тут могут быть подводные камни и лучше так не делать.

[Карась]

Именно эти соображения у меня и возникали

[Ring0Sn]

Arigato, Ну во первых не МЕТОД, а свойство, а во вторых оно не y TButton, а класса TControl, TButton (и TLable тоже) всего лишь наследуют его а вообще запись вида

If (Form1.Components[i] Is TLabel) then 
  TControl(Form1.Components[i]).Caption

вполне корректная и никаких подводных камней не будет, кроме как ненаглядности кода