Добавить условие в код Delphi XE

[min@y™]

Сообщение от Taras2018

Тоже решил позаимствовать код. Но чего то тут не то:

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

[Taras2018]

Сообщение от min@y™

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

Так тоже делал и почему то такая же ошибка. Для справки с делфи я не на ты, ну и не на вы.

Приведи пример в чистом коде ?. Сколько кодов перебрал это первый такой попался. Серьезно, будет интересно.

[min@y™]

Сообщение от Taras2018

Так тоже делал и почему то такая же ошибка. Для справки с делфи я не на ты, ну и не на вы.

Приведи пример в чистом коде ?. Сколько кодов перебрал это первый такой попался. Серьезно, будет интересно.

Весь нужный код идёт в комплекте.
Посмотри, от чего у меня пронаследован класс формы, и всё поймёшь.

[Taras2018]

Сообщение от min@y™

Весь нужный код идёт в комплекте.
Посмотри, от чего у меня пронаследован класс формы, и всё поймёшь.

Ну так вот посмотри "Чисто твой код" + Скриншет, ниже.

unit ufMain;

interface

uses
  uSystemMenu,math, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Samples.Spin, uHexSpin, Vcl.Buttons;

type
  TFormMain = class(TBaseForm)
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    PanelCheck: TPanel;
    PanelEdit: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    EditResult: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpinEditLen: TSpinEditEx;
    ButtonRefresh: TSpeedButton;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    SpinEditCount: TSpinEditEx;
    ButtonSaveAs: TButton;
    SaveDialog: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure ControlChange(Sender: TObject);
    procedure ButtonSaveAsClick(Sender: TObject);
    procedure SpinEditCountChange(Sender: TObject);
  private
    fchecks: TList;
    fedits: TList;
    function Aggregate: string;
    function Generate(const dict: string; const len: int32): string;
  public
    procedure AppIdle(Sender: TObject; var Done: Boolean); override;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

function TFormMain.Aggregate: string;
var
  idx: int32;
begin
  result:= '';

  for idx:= 0 to min(fchecks.Count, fedits.Count) - 1 do
    if  TCheckBox(fchecks[idx]).Checked //TEdit(fedits[idx]).Enabled
      then result:= result + TEdit(fedits[idx]).text;
end;

procedure TFormMain.AppIdle(Sender: TObject; var Done: Boolean);
var
  idx: int32;
begin
  inherited;

  for idx:= 0 to min(fchecks.Count, fedits.Count) - 1 do
    TEdit(fedits[idx]).Enabled:= TCheckBox(fchecks[idx]).Checked;

  ButtonSaveAs.Enabled:= EditResult.Text <> '';
  SpinEditLen.Enabled:= ButtonSaveAs.Enabled;
  SpinEditCount.Enabled:= ButtonSaveAs.Enabled;
end;

procedure TFormMain.ButtonSaveAsClick(Sender: TObject);
var
  idx: int32;
  dict: string;
  list: TStrings;
begin
  dict:= Aggregate();
  if (dict = '') or not SaveDialog.Execute()
    then Exit;

  list:= TStringList.Create();
  try
    for idx:= 0 to SpinEditCount.Value - 1 do
      list.Add(Generate(dict, SpinEditLen.Value));

    try
      list.SaveToFile(SaveDialog.FileName);
    except on E: Exception do
      Application.MessageBox(PChar(E.Message), 'Ошибка сохранения', MB_OK + MB_ICONSTOP);
    end;
  finally
    list.Free();
  end;
end;

procedure TFormMain.ControlChange(Sender: TObject);
var
  dict: string;
begin
  dict:= Aggregate();

  if (dict <> '') and (SpinEditLen.Value > 0)
    then EditResult.Text:= Generate(dict, SpinEditLen.Value)
    else EditResult.Text:= '';
end;

procedure TFormMain.FormCreate(Sender: TObject);
var
  idx: integer;
begin
  Randomize();

  fchecks:= TList.Create();
  for idx:= 0 to PanelCheck.ControlCount - 1 do
    if PanelCheck.Controls[idx] is TCheckBox
      then fchecks.add(PanelCheck.Controls[idx]);

  fedits:= TList.Create();
  for idx:= 0 to PanelEdit.ControlCount - 1 do
    if PanelEdit.Controls[idx] is TEdit
      then fedits.add(PanelEdit.Controls[idx]);
end;

function TFormMain.Generate(const dict: string; const len: int32): string;
var
  idx, dl: int32;
begin
  SetLength(result, len);
  dl:= length(dict);
  for idx:= 1 to len do
    result[idx]:= dict[1 + random(dl)];
end;

procedure TFormMain.SpinEditCountChange(Sender: TObject);
begin

end;

end.

[min@y™]

У тебя не совпадают типы в dfm. Покажи форму.

[Taras2018]

Сообщение от min@y™

У тебя не совпадают типы в dfm. Покажи форму.

Да ситуация нестандартная и как её решить непонятно.

И СпиныЕдит пропадают за этого.

В dfm у меня

object FormBsod: TFormBsod
Left = 459
Top = 255
BorderStyle = bsNone
Caption = 'BSOD'
ClientHeight = 188
ClientWidth = 324
Color = 11206912
DefaultMonitor = dmDesktop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Image: TImage
Left = 0
Top = 0
Width = 324
Height = 188
Align = alClient
Stretch = True
OnClick = ImageClick
ExplicitLeft = 132
ExplicitTop = 68
ExplicitWidth = 105
ExplicitHeight = 105
end
end

[min@y™]

это не та форма.

[Taras2018]

Сообщение от min@y™

это не та форма.

Что имеется в виду?

[min@y™]

Сообщение от Taras2018

Что имеется в виду?

Вот та форма - из файла ufMain.dfm:

2018-05-19 23_11_26-Clipboard.png

[Taras2018]

Сообщение от min@y™

Вот та форма - из файла ufMain.dfm:
[/CENTER]

Вот форма: