Hallo,
ich wollte wegen meiner Frage kein neues Them aufmachen. Vielleicht kann mir ja hier schon jemand sagen, warum ich bei folgendem die besagte Fehlermeldung bekomme:
Delphi-Quellcode:
Function ExpandAz(Var Value: String): String; Overload;
Function ExpandAz(Value: TCaption): String; Overload;
...
// -----------------------------------------------------------
// Erweitert ein Aktenzeichen, bei dem führende Nullen oder
// die führenden "19" oder "20" bei der Jahreszahl weggelassen
// wurden
Function ExpandAz(Var Value: String): String;
Var
S : String;
I : Integer;
Begin
Result:='';
If Value <> '' Then
Begin
S:=SepString(Value, '/'); // Aktenzeichen und Jahr trennen
If TryStrToInt(S, I) Then // numerisches Aktenzeichen ?
S:=FormatFloat('0000', I); // mit führenden Nullen
If TryStrToInt(Value, I) Then
Begin
If I < 1999 Then Inc(I, 2000); // ggf. Dekaden ergänzen (1900er egal)
S:=IntToStr(I); // kompl. Jahr in Str. umwandeln
Result:=S + '/' + Value; // Az. und Jahr wieder zusammensetzen
End;
End;
End;
Function ExpandAz(Value: TCaption): String;
Var
S : String;
Begin
S:=Value; // auf String übertragen
Result:=ExpandAz(S);
End;
Mein Ziel - falls ich es auch anders erreichen kann - ist es, die Function auch mit TEdit.Text vom Typ TCaption als Parameter aufrufen zu können.
Danke und Gruß, Alex