Wie wäre es denn mit so etwas?
Delphi-Quellcode:
type
TIrgendwas =
class
private
FErsteZahl,
FZweiteZahl: double;
procedure SetErsteZahlAsString(
const Value:
string);
procedure SetZweiteZahlAsString(
const Value:
string);
function GetErsteZahlAsString:
string;
function GetZweiteZahlAsString:
string;
public
property ErsteZahl: double
read FErsteZahl
write FErsteZahl;
property ZweiteZahl: double
read FZweiteZahl
write FZweiteZahl;
property ErsteZahlAsString:
string read GetErsteZahlAsString
write SetErsteZahlAsString;
property ZweiteZahlAsString:
string read GetZweiteZahlAsString
write SetZweiteZahlAsString;
end;
...
{ TIrgendwas }
function TIrgendwas.GetErsteZahlAsString:
string;
begin
Result := Format('
%.2n', [FErsteZahl]);
end;
function TIrgendwas.GetZweiteZahlAsString:
string;
begin
Result := Format('
%.2n', [FZweiteZahl]);
end;
procedure TIrgendwas.SetErsteZahlAsString(
const Value:
string);
begin
if not TryStrToFloat(Value, FErsteZahl)
then
raise Exception.CreateFmt('
Ungültige Eingabe: %s', [Value]);
end;
procedure TIrgendwas.SetZweiteZahlAsString(
const Value:
string);
begin
if not TryStrToFloat(Value, FZweiteZahl)
then
raise Exception.CreateFmt('
Ungültige Eingabe: %s', [Value]);
end;
Das in eine TObjectList gesteckt (Bezeichner für ErsteZahl und ZweiteZahl natürlich an den tatsächlichen Zweck angepasst) und ausgeben, sollte recht einfach machbar sein.