Suchfunktion mit stringgrid

[lestat89]

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...

[Apollonius]

Setze doch bitte die Delphitags! Ein Klick auf Edit und noch ein paar weitere können Wunder bewirken...

So eine Suchfunktion musst du wohl selbst implementieren. Du verschachtelst zwei for-Schleifen und gehst dann bis zum Rowcount bzw. Colcount durch. Kurzer Abriss:

Delphi-Quellcode:

for i:=0 to stringgrid1.colcount-1 do
  for j:=0 to stringgrid1.rowcount-1 do
    if stringgrid1.cells[i,j]=gesuchterinhaltalsstring then
      begin
        //einfärben oder wasauchimmer machen
      end;

Hoffe geholfen zu haben
Apollonius