TJv7SegmentLEDDigit kennt Text, aber auch nicht ?!

[xZise]

Zitat:

[Error] uMain.pas(74): Undeclared identifier: 'Text'

Hier ein bisschen Text... vielleicht bin ich auch nur zu doof:

Delphi-Quellcode:

uses
  {...}JvSegmentedLEDDisplay;

type
  TForm1 = class(TForm)
    {...}
    sldTime: TJvSegmentedLEDDisplay;
    {...}
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
{...}
begin
  {...}
      if sldTime.Digits[6] = '9' then begin
        if sldTime.Digits[5].Text = '5' then begin
          if sldTime.Digits[3].Text = '9' then begin
            if sldTime.Digits[2].Text = '5' then begin
              if sldTime.Digits[0] = '9' then begin
                sldTime.Digits[0].Text = '0'
              end else
                sldTime.Digits[0].Text := IntToStr(StrToInt(sldTime.Digits[0].Text) + 1);
              sldTime.Digits[2].Text := '0';
            end else
              sldTime.Digits[2].Text := IntToStr(StrToInt(sldTime.Digits[2].Text) + 1);
            sldTime.Digits[3].Text := '0';
          end else
            sldTime.Digits[3].Text := IntToStr(StrToInt(sldTime.Digits[3].Text) + 1);
          sldTime.Digits[5].Text := '0';
        end else
          sldTime.Digits[5].Text := IntToStr(StrToInt(sldTime.Digits[5].Text) + 1);
        sldTime.Digits[6].Text := '0';
      end else
        sldTime.Digits[6].Text := IntToStr(StrToInt(sldTime.Digits[6].Text) + 1);

      if sldTime.Digits[4].Text = ':' then
        sldTime.Digits[4].Text := ''
      else
        sldTime.Digits[4].Text := ':';

{...}
end;

{...}

end.

Vielleicht geht das auch anders, aber ich bin gespannt, ob es auch so geht ^^ Also daran sollte, außer es bringt etwas, erstmal nichts geändert werden.