Forum: Programmieren allgemein
by KodeZwerg,
11. Apr 2018
TYPE
TDATARecord = RECORD
A, B: Integer;
END;
function IsDataOK(var aDataRecord: TDataRecord): Boolean;
begin
if aDataRecord.A < 0 then aDataRecord.A := 0;
Result := False; // es sollte ja eh immer False rauskommen, oder?
end;
Forum: Programmieren allgemein
by KodeZwerg,
11. Apr 2018
// procedure 3
function TDataUnit.IsDataOK(var aDataRecord: TDataRecord) : Boolean;
begin
// überprüfe Daten (strings und integer) aus aDataRecord.
// Wenn etwas kaputt ist, korrigiere es. Beispiel
if aDataRecord.A < 0 then
begin
aDataRecord.A := 0;
Result := True;
end
Forum: Programmieren allgemein
by KodeZwerg,
11. Apr 2018
Ein " if not IsDataOK(aDataRecord) then" sollte es beheben, oder?