Předmět Autor Datum
No tak domaci ukoly tu moc neděláme. Každopádně v čem máš konkrétně problém? Jsou to dva fory vložen…
AZOR 18.06.2013 18:48
AZOR
Čo už máš hotové, kde si sa zasekol? Len nenapíš, že nemáš/nevieš nič! :x:
pme 18.06.2013 18:51
pme
ulohu mam uz hotovou jen u tohodle problemu jsem se zasekl
Wa 18.06.2013 19:10
Wa
A nevieš konkrétne čo? Prechádzať a pristupovať k položkám poľa vieš?
pme 18.06.2013 19:13
pme
To vim, jde mi to, že mám problém zapsat ten cyklus který mi bude postupně všechny ty shapy procháze…
Wa 18.06.2013 19:14
Wa
Pole budeš prechádzať presne tak isto, ako si napĺňal to pole :i: for i:=1 to 10 for j:=1 to 10 ....
pme 18.06.2013 19:21
pme
No jasny, procházení je ok. Ale jak ted tu barvu jednotlivýho shapu vypsat v RGB do .txt
Wa 18.06.2013 19:26
Wa
var c : Tcolor; r,g,b: Byte; s: String; begin c:=MojePole[i,j].Brush.Color; c:=ColorToRGB(c); r:=get… poslední
pme 18.06.2013 19:46
pme

No tak domaci ukoly tu moc neděláme. Každopádně v čem máš konkrétně problém? Jsou to dva fory vložené v sobě a nějakej zápis do souboru.

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

Zpět do poradny Odpovědět na původní otázku Nahoru