a>=100

[blawen]

Zitat von DarthYoda:

Ich glaub ich hab mich etwas falsch Ausgedrückt. Ich will, dass wenn die Label.Caption >=100 ist, dass dann beispielsweise die Caption vom Form geändert wird.

Irgendwie sehe ich Dein Problem nicht. Bei obigen Code musst Du nur noch den Inhalte (Caption) in einen Zahlenwert umwandeln...

if (IntToStr(Label1.Caption) >= 100) then

[DarthYoda]

Danke jz sollte es klappen...

Tut mir leid wenn ich wie ein noob rüberkomme, aber ich hab delphi erst seit einigen Tagen.

LG

[BUG]

Zitat von blawen:

if (IntToStr(Label1.Caption) >= 100) then

Und wann würde man das ausführen?
Geht natürlich mit einem Timer (quasi Polling); die sauberer Variante wäre imho der Zeitpunkt wo auch Label1.caption gesetzt wird (also quasi ein Push).


Aber das Problem scheint ja gelöst zu sein

[blawen]

Zitat von BUG:

Und wann würde man das ausführen?

Würde ich pers. auch beim setzen überprüfen...
Und wenn es mehr als 1-2 Labels sind, würde ich es nochmals anders angehen - aber auf eine allgemeine Frage, kann man oft nur allgemein antworten.

[Luckie]

Generells Problem bei dir: Datenhaltung in einer visuellen Komponente. Stichwort: Trennung von der Darstellung und der Datenverarbeitung.

[AlexII]

Zitat von Luckie:

Generells Problem bei dir: Datenhaltung in einer visuellen Komponente. Stichwort: Trennung von der Darstellung und der Datenverarbeitung.

Hast Du ein Beispiel wie man das getrennt hält?

[p80286]

Na wenn die Ausgabe in einem Label z.B. der Inhalt der Variablen "RecordCount" ist, dann hast Du die Möglichkeit
if RecordCount >100 then Panel1.colour:=blue; oder aber
if Strtoint(label1.caption)>100 then Panel1.Color:=blue; Und wenn Du es halbwegs richtig machen willst, muß noch jede Menge Fehlerprüfung in die zweite Möglichkeit integriert werden. Dazu bin ich aber jetzt zu bequem.

Und wahrscheinlich ist die angestrebete Farbänderung sowieso davon abhängig welchen Wert "RecordCount" hat und nicht welchen Inhalt die Caption eines Labels.

Gruß
K-H

[BUG]

Systematisiert ist dieser Ansatz in MVC (und verwandten Mustern: MVVM, ... ).

[Mavarik]

Zitat von AlexII:

Zitat von Luckie:

Generells Problem bei dir: Datenhaltung in einer visuellen Komponente. Stichwort: Trennung von der Darstellung und der Datenverarbeitung.

Hast Du ein Beispiel wie man das getrennt hält?

Wenn ich dazu komme mache ich mal ein "richtiges" Beispiel...


Beispiel: (Bitte so nicht programmieren. Da fehlt noch ganz viel und auf man(n) nutzt keine festen Links... )

Form:

Delphi-Quellcode:

TForm1 = class(TForm)
    VorName: TEdit;
    PLZ: TEdit;
    Ort: TEdit;
    procedure AllChange(Sender: TObject);
  public
    Procedure Data2Form;
    Procedure Form2Data;
    { Public-Deklarationen }
  end;

 procedure TForm1.AllChange(Sender: TObject);
 begin
   Form2Data;
 end;

 Procedure TForm1.Data2Form;
 begin
   VorName.Text := StupidData.FVorName;
   PLZ.Text  := StupidData.FPLZ;
   Ort.Text  := StupidData.FOrt;
 end;

 Procedure TForm1.Form2Data;
 begin
   StupidData.FVorName := VorName.Text;
   StupidData.FPLZ  := PLZ.Text;
   StupidData.FOrt  := Ort.Text;
 end;

Und den Record...(Auch hier: Bitte nicht auf Form1 usw. zugreifen)
Soll nur ein Beispiel sein...

Delphi-Quellcode:

Type
   TStupidData = Record
                   FVorName : String;
                   FPLZ  : String;
                   FOrt  : String;
                   Procedure SetVorname(AValue : String);
                   Procedure SetPLZ(AValue : String);
                   Procedure SetOrt(AValue : String);
                   Property VorName : String write SetVorName;
                   Property PLZ  : String write SetPLZ;
                   Property ORT  : String write SetOrt;
                 end;

var
   StupidData : TStupiddata;

implementation

Procedure TStupidData.SetVorname(AValue : String);
begin
  FVorName := AValue;
  Form1.Data2Form;
end;

Procedure TStupidData.SetPLZ(AValue : String);
begin
  FPLZ := AValue;
  Form1.Data2Form;
end;

Procedure TStupidData.SetOrt(AValue : String);
begin
  FORT := AValue;
  Form1.Data2From;
end;