Hallo,
Ich musste als Aufgabe ein MainMenu in ein Verschlüsselungsprogramm basten, darunter auch eine Suchfunktion. Jetzt habe ich in der Hilfe nachgeschaut, wie man den FindDialog benutzt, und es dann ausprobiert, jedoch funktioniert die Suche dann nicht. es erscheint zwar die Suche, aber er findet nix.
Ich hab die Such-procedure mal eingefügt:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
| procedure TForm1.Textsuche1Click(Sender: TObject);
begin
FindDialog1.Position := Point(REdtEin.Left + REdtEin.Width, REdtEin.Top);
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Close(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with REdtEin do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end; |
Bin über alle Antworten dankbar!
schattenlord
Moderiert von 
Gausi: Code- durch Delphi-Tags ersetzt
