Simple If Then Else Frage

[alzaimar]

Stimmt, Papi :mrgreen:

[Cyberstorm]

in diesem Sinne.
DANKE

(danke auch für die optimierung, werde das anwenden...)

wurde nur beim schreiben ein wenig unübersichtlich, weil der originalcode ist:

Delphi-Quellcode:

if (UdpMsg[i+1]='5') or (UdpMsg[i+1]='-5') then TEdit(FrmPositions.FindComponent('edField' + IntToStr(i))).Visible:=True
else TEdit(FrmPositions.FindComponent('edField' + IntToStr(i))).Visible:=False;

aber nun ist er

Delphi-Quellcode:

TEdit(FrmPositions.FindComponent('edField' + IntToStr(i))).Visible:=(UdpMsg[i+1][i]='5') or (UdpMsg[i+1][i]='-5');

[Namenloser]

Also ich persönlich finde ja beides ziemlich unübersichtlich :X

[DeddyH]

Delphi-Quellcode:

var aEdit: TEdit;
begin
  aEdit := TEdit(FrmPositions.FindComponent('edField' + IntToStr(i)));
  if Assigned(aEdit) then
    aEdit.Visible:=(UdpMsg[i+1][i]='5') or (UdpMsg[i+1][i]='-5');

So in etwa würde ich das machen.