Hallo,
Ich will in ein Programm eine kleine Suchmaschine einbauen, die ein File nach String-Teilen durchsucht
.
zZ sieht es wie folgt aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| type
TLagerString = String[100];
[...]
var suche,ergeb:TLagerString;
[...]
for i:=0 to j-1 do
begin
seek(lager2,i);
read(lager2,ergeb);
if ergeb=suche THEN
showmessage('Ihre Anfrage wurde gefunden in Zeile ' + IntToStr(i+1));
else
showmessage('Nix gefunden');
end; |
Das Problem hierbei ist, dass bei einem String "Max Mustermann" nur auf die genaue Suchanfrage "Max Mustermann" ein Fund geliefert wird und nicht, wenn man beispielsweise nach "Max" sucht
.
Nun könnte ich nach jedem Buchstaben einzeln suchen, aber das halte ich für leicht aufwendig und wollte daher fragen, ob es vielleicht einen Befehl gibt, der mir diese Arbeit erleichtern kann
.
Grüße.
.