Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi If not XY in [...] mit reellen Typen

**engine**

Delphi-Quellcode:

			Radius: integer;

Radius := round(StrToFloat(Form1.StringGrid1.Cells[4, i]) * 100); 

if not (Radius in [340, 425, 510, 600, 700, 875, 1050, 1325, 1600]) then

  Form1.StringGrid1.Cells[9, i] := 'ERROR';

Das sieht gut aus...

Danke

engine Registriert seit: 6. Mär 2005 73 Beiträge	#5 Re: If not XY in [...] mit reellen Typen 23. Mai 2005, 23:10 markieren Delphi-Quellcode: Radius: integer; Radius := round(StrToFloat(Form1.StringGrid1.Cells[4, i]) * 100); if not (Radius in [340, 425, 510, 600, 700, 875, 1050, 1325, 1600]) then Form1.StringGrid1.Cells[9, i] := 'ERROR'; Das sieht gut aus... Danke
	Zitat

Einzelnen Beitrag anzeigen

Re: If not XY in [...] mit reellen Typen