Forum: Multimedia
Delphi
by jfheins,
4. Jul 2009
Ähhh .... also: Du nimmt die 2. Funktion und kopierst sie. Dann gehhst du in delphi und guckst nach dem Wort "implementation" - dadrunter fügst du den Code ein. Danach kannst du so dein Label befüllen:Label12.Caption := IntToColorStr(2);
Es kann aber sein, dass der Code syntaktisch nicht ganz korrekt ist.
Forum: Multimedia
Delphi
by jfheins,
4. Jul 2009
Das geht entweder über ein konstantes Array oder mit einem Case-Statement ;)
ersteres sieht ungefähr so aus:function IntToColorStr(a: Integer):String
const
Table: array of String = ;
begin
Result := Table;
end;
zweiteres:function IntToColorStr(a: Integer):String