|
|
 | And Or Nor
Fra : Henning Madsen |
Dato : 28-01-06 23:05 |
|
Mine begreber angående And Or og Nor er sikkert ikke rigtige derfor
virker følgende procedyre nok ikke rigtig.
Det jeg vel, er at finde de celler som
i XStringGrid1 indeholder et X
og hvor farverne i StringGrid1, ikke må være
Rød (255) eller Grå (8421504)
Hvordan skal if linien se ud ?
procedure TForm1.XStringGrid2SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
T : Integer;
begin //Der klikkes på en maskine.
//-------HJ2-----------
if (ACol = 1) and (ARow = 0) then
begin
Vandret := 1;
for T := 1 to XStringGrid1.RowCount do
if (XStringGrid1.Cells[Pilot,T-1] = 'X') And Not
(StringGrid1.Cells[1,T] = '255') And Not
(StringGrid1.Cells[1,T] = '8421504')
then SetCellTextColor(0,T,clGreen);
end;
Hvis der er en der vel sætte det rigtigt sammen
vel jeg på forhånd sige mange tak.
Bemærk der bruges 1 StringGrid og 2 XStringGrid
Samt Delphi 7 og XP
mvh.
Henning.
| |
 Harald (28-01-2006)
| Kommentar
Fra : Harald |
Dato : 28-01-06 23:18 |
|
"Henning Madsen" <HKM@madsen.tdcadsl.dk> skrev i en meddelelse
news:43dbe9cd$0$170$edfadb0f@dread16.news.tele.dk...
> Mine begreber angående And Or og Nor er sikkert ikke rigtige derfor
> virker følgende procedyre nok ikke rigtig.
>
> Det jeg vel, er at finde de celler som
> i XStringGrid1 indeholder et X
> og hvor farverne i StringGrid1, ikke må være
> Rød (255) eller Grå (8421504)
>
> Hvordan skal if linien se ud ?
>
> procedure TForm1.XStringGrid2SelectCell(Sender: TObject; ACol,
> ARow: Integer; var CanSelect: Boolean);
> var
> T : Integer;
> begin //Der klikkes på en maskine.
> //-------HJ2-----------
> if (ACol = 1) and (ARow = 0) then
> begin
> Vandret := 1;
> for T := 1 to XStringGrid1.RowCount do
>
> if (XStringGrid1.Cells[Pilot,T-1] = 'X') And Not
> (StringGrid1.Cells[1,T] = '255') And Not
> (StringGrid1.Cells[1,T] = '8421504')
> then SetCellTextColor(0,T,clGreen);
> end;
if (XStringGrid1.Cells[Pilot,T-1] = 'X') And (Not ((StringGrid1.Cells[1,T]
= '255') or (StringGrid1.Cells[1,T] = '8421504'))) then
SetCellTextColor(0,T,clGreen);
/HK
| |
|
|