Projektbericht 796.8 KByte - Technikpreis

45 D Quellcode
Read(f, CalibArray);
CloseFile(f);
AssignFile(f1, Einheit_PFAD);
Reset(f1);
Read(f1, EinheitArray);
CloseFile(f1);
SensorNr := StrToInt(txtSensorNr.Text);
txt0.Text := FloattoStr(CalibArray[SensorNr,0]);
txt127.Text := FloattoStr(CalibArray[SensorNr,127]);
txt255.Text := FloattoStr(CalibArray[SensorNr,255]);
txtEinheit.Text:=EinheitArray[SensorNr];
ListBoxFuellen;
end;
procedure TfrmCalibSensor.ArrayFuellen();
var klWert, miWert, hoWert, Differenz, Schritt : Single;
var n : Byte;
begin
klWert := StrToFloat(txt0.Text);
miWert := StrToFloat(txt127.Text);
hoWert := StrToFloat(txt255.Text);
CalibArray[SensorNr,0] := klWert;
CalibArray[SensorNr,127] := miWert;
CalibArray[SensorNr,255] := hoWert;
EinheitArray[SensorNr] := txtEinheit.Text;
if rdbLinear.Checked = True then
begin
Differenz := hoWert - klWert;
Schritt := Differenz / 255;
for n := 0 to 255 do
begin
CalibArray[SensorNr,n] := klWert + Schritt*n
end;
end;
end;
procedure TfrmCalibSensor.btnCancelClick(Sender: TObject);
begin
Hide;
end;
procedure TfrmCalibSensor.ListBoxFuellen();
var n : Byte;
begin
lstArray.Items.BeginUpdate;
lstArray.Items.Clear;
For n := 0 to 255 do
begin
lstArray.Items.Add(Floattostr(CalibArray[SensorNr,n]));
end;
lstArray.Items.EndUpdate;
end;
procedure TfrmCalibSensor.txtSensorNrChange(Sender: TObject);
begin
SensorNr := StrToInt(txtSensorNr.Text);
lblSensorNr.Caption := txtSensorNr.Text;
end;
procedure TfrmCalibSensor.btnUebernehmenClick(Sender: TObject);
begin
Aktualisieren();
end;
procedure TfrmCalibSensor.Aktualisieren();