Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.04.26;
Скачать: CL | DM;

Вниз

Логические выражения   Найти похожие ветки 

 
DL   (2009-03-09 15:38) [0]

Имеется список (TStrings) вида:


A or (B and C)
(B and A) and C
C and A or B


Можно ли как нибудь получить результат вычисления для каждой строки


 
Palladin ©   (2009-03-09 15:39) [1]

Да. Нужно как нибудь написать код вычисления для каждой строки.


 
{RASkov} ©   (2009-03-09 16:45) [2]

unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
   procedure FormCreate(Sender: TObject);
   procedure ListBox1Data(Control: TWinControl; Index: Integer; var Data: String);
 private { Private declarations }
 public  { Public declarations }
   A, B, C: Boolean;
 end;

var Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 A:=False; B:=True; C:=True;
 ListBox1.Style:=lbVirtual;
 ListBox1.Count:=3;
 ListBox1.OnData:=ListBox1Data;
end;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer; var Data: String);
begin
 case Index of
  0: Data:=BoolToStr(A or (B and C), True);
  1: Data:=BoolToStr((B and A) and C, True);
  2: Data:=BoolToStr(C and A or B, True);
 end;
end;

end.



Страницы: 1 вся ветка

Текущий архив: 2009.04.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
2-1236842605
Андрей Пл
2009-03-12 10:23
2009.04.26
Как сделать инсталяцию.


15-1235259659
Nic
2009-02-22 02:40
2009.04.26
TWebBrowser


15-1235306908
TStas
2009-02-22 15:48
2009.04.26
Как быстро открыть папку проводником?


15-1235651214
Ega23
2009-02-26 15:26
2009.04.26
Подскажите, как понять


15-1235555828
KilkennyCat
2009-02-25 12:57
2009.04.26
No royalties.