'format'-Funktion als Fehlerquelle

[PascalDragon]

Ich nehme gerne WriteStr, das es ehr einfach in der Handhabung ist.

Da ist es sinnvoller einen eigenen TextDriver zu schreiben (ähnlich wie StreamIO es für TStream macht), da man dann direkt Writeln(FileVar, ...) nutzen kann ohne es aufteilen zu müssen. Wie aber schon anderweitig erwähnt sind diese Variante schlechter für Übersetzungen zu handhaben, vor allem, wenn sich von Sprache zu Sprache die Reihenfolge der Werte ändern sollte.

[m.fuchs]

Würde ich lösen, indem ich mir eine (bzw. mehrere) sichere Funktionen bauen würde, die das ganze typsicher machen:
Für die Funktion FormatError schreibt man dann noch Unittests, damit auch da drin nichts schiefgeht.

Das ist mir deutlich zu unflexibel, es läuft dann darauf hinaus mehrere solcher Funktionen zu bauen, für beliebige Kombinationen aus Zahlen und Strings. Ist zwar auf jeden Fall sicherer, aber nicht gut handhabbar.

Kann ich jetzt schlecht beurteilen, weil nicht ganz klar ist was deine eigentliche Problemstellung ist.

[Zvoni]

Errr... per Zufall erst heute darauf gestossen.....

Proof of Concept

Code: Alles auswählen

program Project1;
{$mode ObjFPC}{$H+}
Uses Sysutils;

Const MyFormat:Array[TTypeKind] of String= ('',   //tkUnknown
                                            '%d', //tkInteger
                                            '%s', //tkChar
                                            '',   //tkEnumeration
                                            '%n', //tkFloat
                                            '',   //tkSet
                                            '',   //tkMethod
                                            '%s', //tkSString
                                            '%s', //tkLString
                                            '%s', //tkAString
                                            '%s', //tkWString
                                            '',   //tkVariant
                                            '',   //tkArray
                                            '',   //tkRecord
                                            '',   //tkInterface
                                            '',   //tkClass
                                            '',   //tkObject
                                            '%s', //tkWChar
                                            '%d', //tkBool --> UNSURE!!
                                            '%d', //tkInt64
                                            '%d', //tkQWord
                                            '',   //tkDynArray
                                            '',   //tkInterfaceRaw
                                            '',   //tkProcVar
                                            '%s', //tkUString
                                            '%s', //tkUChar
                                            '',   //tkHelper
                                            '',   //tkFile
                                            '',   //tkClassRef
                                            '');    //tkPointer
//Overload
function EineFunktion(out  a : Integer; out b : String) : Boolean;
begin
  a := 42; //Random(5000);
  b := 'Ein String Integer-Funktion';
  Result := (a<>123);
end;
function EineFunktion(out  a : String; out b : String) : Boolean;
var
  r : Integer;
begin
  r := 1042; //Random(5000);
  a := IntToStr(r);
  b := 'Ein String String-Funktion';
  Result := (r<>123);
end;
Procedure LogThis(FirstArg,SecArg:String;args:array of Const);
Begin
  Writeln(Format('Es ist ein Fehler ('+FirstArg+') bei der Bearbeitung von "'+SecArg+'" aufgetreten!',args));
end;

procedure MachEinenFehlerInt;
var
  a : Integer = 0;
  b : String = '';
begin
  if {not} EineFunktion(a,b) then
    LogThis(MyFormat[GetTypeKind(a)], MyFormat[GetTypeKind(b)],[a,b]);
end;
procedure MachEinenFehlerStr;
var
  a : String = ''; // War Integer
  b : String = '';
begin
  if {not} EineFunktion(a,b) then
    LogThis(MyFormat[GetTypeKind(a)], MyFormat[GetTypeKind(b)],[a,b]);
end;

begin
  MachEinenFehlerInt;
  MachEinenFehlerStr;
  Readln;
end.