Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#42

Re: TACredits, scrolling Unicode & Smart-Tag capable Cre

  Alt 21. Mai 2009, 10:22
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)
Angehängte Dateien
Dateityp: dpk aviant_creditsd5_946.dpk (707 Bytes, 5x aufgerufen)
Thomas
  Mit Zitat antworten Zitat