Tal til farve ???

boks... er det en TEdit du hentyder til?

bare du kan hjælpe mig med hvad jeg skal bruge så er jeg glad... men jeg mener det er en.. Lable....

Jeg er ikke med... Hvad er det for en boks? En ListBox, et edit-felt, eller hvad?!?

man skal skrive sine tal i et felt (af en eller anden art) og hvis man trykker på en knap som vi kalder "spil" så skulle der komme en anden form frem med de tal man har skrevet og nogle tal man har hentet ude fra nettet... og så rykker man på en anden knap hvor der står "sammnlign" og så sammenligner programmet og i det sidste felt kommer der så hvor mange rigtige man har ud af de tal der er der.....

Opret et array af TEdit og kør noget kode i gennem som tjekker om de er de samme som hvad der står i en ListBox eller noget...

Det her kan måske bruges:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    Edits: array [0..14] of TEdit;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  Randomize;
  for I := 0 to 14 do
  begin
    Edits[I] := TEdit.Create(Self);
    Edits[I].Parent := Self;
    Edits[I].Left := 16;
    Edits[I].Top := I*24+16;
    Edits[I].Text := IntToStr(Random(20));
    ListBox1.Items.Add(IntToStr(Random(20)));
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: Integer;
begin
  for I := 0 to 14 do
    Edits[I].Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 14 do
    if ListBox1.Items.IndexOf(Edits[I].Text) <> -1 then
      Edits[I].Color := clGreen;
end;

end.