Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem D/7 (jak by se dala zjistit barva jednotlivých shapu a uložit to do .txt) 

var
 c : Tcolor;
 r,g,b: Byte;
 s: String;
begin
  c:=MojePole[i,j].Brush.Color;
  c:=ColorToRGB(c);
  r:=getrValue(c);
  g:=getgValue(c);
  b:=getbValue(c);
  s:=(Format('%d',[R])+','+Format('%d',[G])+','+Format('%d',[B]));
//výsledný text zapíšeš do súboru

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny