Also mein Problem ist folgendes...
zuersteinmal möchte ich sagen, dass ich noch ein ziemlicher Anfänger bin was Delphi angeht...
die Aufgabe: Ich habe ein Stringgrid (10x10) mit 100 Zufallszahlen ausgewählt.
nun möchte ich in ein editfeld eine zahl eingeben, die auf Knopfdruck gesucht werden soll.
mein Ergebnis stelle ich mir so vor...
Entweder wird die entsprechende Zelle markiert (Farbwechsel auf grün meinetwegen)
oder es wird der Fundort der jeweiligen Zahl(en) angegeben in einem Lable zum Beispiel...
(Aussserdem sollte es nicht zu kompliziert werden...)
wäre für eine schnelle Hilfe sehr dankbar!
mein Bisheriger Quelltext:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
stringgrid1.Cells[i-1,j-1]:=InttoStr(random(100));
end;
procedure TForm1.Button2Click(Sender: TObject);
var z,i,j:integer; feld: array[1..10,1..10] of integer;
begin
for j:=1 to 10 do
for i:=1 to 10 do
if stringgrid1.Cells[i,j]=edit1.text
then
label1.Caption:=inttostr(i);
label2.Caption :=inttostr(j);
end;
end.
Mit freundlichen Grüßen - Philipp
Bisheriges Programm liegt im Anhang...