Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - [Delphi] String nach Teilstring durchsuchen


my life - Mi 30.06.10 11:44
Titel: [Delphi] String nach Teilstring durchsuchen
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
        // Ausgabe
      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.


bummi - Mi 30.06.10 11:55
If Pos(Suche,Ergeb)>-1 then

aber warum arbeietst Du eigentlich noch mit Shortstrings?


my life - Mi 30.06.10 12:02
du meinst >0? :) dann klappts nämlich bei mir ^^.
Ich arbeite mit ShortStrings, weil ich die Datei als "file of TLagerString" deklariert habe und da muss man den String begrenzen ;).

Danke für deine Hilfe :).


bummi - Mi 30.06.10 12:12
natürlich, sorry ..


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!