TACredits, scrolling Unicode & Smart-Tag capable Credits

[toms]

Hallo

Die Komponente funktioniert auch unter D6, wenn PosEx() deklariert wird:

Delphi-Quellcode:

{$IFNDEF DELPHI_7_UP}
function PosEx(Substr, s : string; Offset : Integer = 0) : Integer;
begin 
  Delete(s, 1, Offset);
  Result := Pos(Substr, s) + Offset; 
end;
{$ENDIF}

Damit sie unter D5 funktioniert, muss zusätzlich TryStrToInt deklariert werden:

Delphi-Quellcode:

{$IFNDEF DELPHI_6_UP}
function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;
{$ENDIF}

Zudem braucht es für D5 eine angepasste dpk Datei (siehe Anhang)