Habe aber noch ein Problem:
Vereinfachter Beispielcode Float:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var
Test : array [0..0] of TVarRec;
begin
Test[0].VExtended := StrToFloat(Edit5.text);
Label5.Caption := format( Edit4.text , Test);
end;
Error: Inkompatible Typen: 'Extended' und 'PExtended'
Vereinfachter Beispielcode String:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var
Test : array [0..0] of TVarRec;
begin
Test[0].VAnsiString := PChar(Edit5.text);
Label5.Caption := format( Edit4.text , Test);
end;
Error: Format %s ungültig oder nicht kompatibel mit Argument
