Hallo!
Ich soll für Delphi 7, in der Schule, ein Tiersuchprogramm schreiben. Ansatzweise funktioniert dieses auch. Er markiert mir das gesuchte Wort, aber leider auch einzelne Buchstaben das Suchwortes. Ist schwer zu beschreiben, deshalb ein kleines Beispiel:
Wenn ich als Suchwort BOA eingebe, markiert er BOA und alle b´s, a´s die zwei Stellen nach einem B stehen und so weiter.
Mein Quelltext, der für das Suchen verantwortlich ist, sieht wie folgt aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.BnSuchenClick(Sender: TObject);
var x,y:integer;
Suchwort:string;
begin
Suchwort:=EditTier.Text;
for y:=1 to feld.RowCount-1 do
begin
for x:=feld.FixedCols to feld.ColCount -1 do
begin
if feld.Cells [x,y] =Suchwort [1] then
for i:=1 to length(suchwort) do
begin
if feld.Cells [x+i-1,y]= Suchwort[i] then
begin
if feld.Cells[x+i-1,y] = suchwort[i] then
feld.Cells [x+i-1,y] :=lowercase (feld.Cells[x+i-1,y]);
end;
end;
end;
end;
end; |
Kann mir jemand sagen, was ich einfügen oder weglassen muss, damit er mir nur das Suchwort anzeigt?
Danke für die Hilfen
Tigu
