Guten Tag,
ich wollte wissen, ob man programmieren kann, dass sobald sich eine Variable ändert der dazu gehörige String sich auch ändert. Mit string meine einen label in meinem formular. mich nervt es nämlich, dass in meinen physikalischen Programmen die Veranschaulichung von label.caption:=daten mehr zeit frisst als die Rechnung selber
Ich hab ziemlich viele Labels und edits und es wäre am besten wenn ich sagen könnte daten.change:=label.caption.change
ich hoffe ihr könnt mir helfen

wenn deine daten in einem objekt sind, kannst du dir 'n property erstellen, welches genau das macht. den quellcode zur zuweisung hast ja schon angegeben

ja ne ich hab kein objekt das ist ja das problem. ich hab nur ein paar fette arrays.

Und welche Typen sind im Array.

BTW.:Schreib mal unser Bundesland richtig

dann mach doch 'n objekt draus ... und pack es in 'ne liste... z.b. tobjectlist


die arrays können nur das aufnehmen, für das sie geschaffen wurden... bis zu D2006 sind sie zudem äusserst passiv. von d2006 ab, kannst du da den records leben einhauchen ...

ich glaub du hast a auch noch ein Designproblem

Wenn du schon einen String und ein Label hast, dann wäre es besser, wenn du den Text im Laben vom Inhalt des Strings abhängig machst.

führe alle Änderungen nur an Strings durch

und zum Anzeigen hast du nun 2 Möglichkeiten:

- entweder in einem Timer die strings abfragen und an ihre Labels weiterleiten.
(PS: in TLabel gibt es schon eine Änderungsabfrage ... wenn du einen Text an .Caption zuweist, dann wird er nur übernommen, wenn er nicht dem bereits angezeigten Text übereinstimmt)

markieren

Delphi-Quellcode:

Procedure Form1.Timer1Timer(Sender: TObject);
  Begin
    Label1.Caption := S1;
    Label2.Caption := S2;
    Label3.Caption := S3;
  End;

- oder du erstellst dir eine Updateprozedur, welche nach einer Änderung (oder mehreren Änderungen ... z.B. nach der Berechnung) von dir (deinem Programm) aufgerufen wird.

zusammenfalten · markieren

Delphi-Quellcode:

Procedure Form1.UpdateLabels; {'ne private Klassenprozedur}
  Begin
    Label1.Caption := S1;
    Label2.Caption := S2;
    Label3.Caption := S3;
  End;


S1 := ...;
S2 := ...;
S3 := ...;
UpdateLabels;

Letzteres läßt sich auch so ähnlich in einer Klasse nutzen.