Ich lasse mir von einem Messgerät daten liefern und in Edits eintragen.
Immer wenn ich Drücke misst er einen Wert und trägt ihn ein. Nun möchte ich das Programm sicher machen, weil wenn man z.B. 5mal auf die Taste drückt trägt er den selben Wert in die 5 Felder.
Ich möchte die Taste erst wieder gedrückt werden kann wenn das eine Feld bzw Schleife rum ist.
hier der Code:
Code: Alles auswählen
begin
if (y_wert>0.1) and (n_wert<7) then {Schleife 6-Teil}
begin
inc(n_wert);
if n_wert=1 then EditR1.Text:= FormatFloat('0.00',y_wert);
if n_wert=2 then EditR2.Text:= FormatFloat('0.00',y_wert);
if n_wert=3 then EditR3.Text:= FormatFloat('0.00',y_wert);
if n_wert=4 then EditR4.Text:= FormatFloat('0.00',y_wert);
if n_wert=5 then EditR5.Text:= FormatFloat('0.00',y_wert);
if n_wert=6 then EditR6.Text:= FormatFloat('0.00',y_wert);
if n_wert=7 then EditRA.Text:= FormatFloat('0.00',y_wert);
end;
if n_wert<7 then Label2.Caption:='Messung: OK';
if n_wert=7 then Label2.Caption:='!!! FERTIG !!!';
end;
Hier hatte ich die gleich Frage schonmal mit einer anderen Verbunden. http://www.lazarusforum.de/viewtopic.php?f=55&t=7032