Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Schiffe versenken, Platzierung

    Delphi
    by fui-tak, 28. Mai 2010
  Ich weiß nicht ob ich dich richtig verstehe, aber ich glaube du hättest gerne sowas:
  
  ...
  gueltig:=true;
  
  for iX := r.Left to r.Right do
  for iY := r.Top to r.Bottom do
  if not(arr2='*') then gueltig := false; //wenn auf dem Feld ein Schiff irgendeiner Art ist (in deinem Beispiel gingen nur k-Schiffe), wird gueltig auf false gesetzt
• Forum: Multimedia

  Re: Schiffe versenken, Platzierung

    Delphi
    by fui-tak, 27. Mai 2010
  Das müsste dann so gehen:
  
  begin
  with sender as TDrawgrid do
  begin
  if not(arr2 = '*') //wenn hier kein * ist, dann wird ... clRed ausgeführt
  then canvas.brush.color := clred
  else canvas.brush.color := clwhite;
  canvas.fillrect(rect);
  end;