AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Like unter Delphi

Ein Thema von smudo · begonnen am 24. Apr 2007 · letzter Beitrag vom 2. Mai 2007
 
Schubi

Registriert seit: 4. Nov 2003
Ort: Happurg (Nürnberg)
331 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Like unter Delphi

  Alt 24. Apr 2007, 09:53
Da hilft dir folgende Unit:

Delphi-Quellcode:
unit wcomp;


interface

// case-sensitive (Gross/Kleinschreibung wird beachtet)
function CompareWildString(const wild, Name : string) : Boolean;

// case-insensitive (Gross/Kleinschreibung ingorieren)
function CompareWildText(const wild, Name : string) : Boolean;

implementation

uses SysUtils;



const MAXB = 8;


(*
* Compare a wild card name with a normal name.
* Taken from Matt Dillon's csh program.
*)

function CompareWildString(const wild, Name : string) : Boolean;
label goback;
var
  w : PChar;
  n : PChar;

  back : array[0..MAXB-1, 0..1] of PChar;
  s1, s2 : char;
  bi : integer;
begin
  w := PChar(wild);
  n := PChar(Name);
  bi := 0;

  while (n^ <> #0) or (w^ <> #0) do
  begin
    case w^ of
      '*':
      begin
        if bi = MAXB then
        begin
          raise Exception.CreateFmt('CompareWildString(%s, %s)'#13#10+
            'too many levels of ''*''', [wild, Name]);
        end;
        back[bi, 0] := w;
        back[bi, 1] := n;

        Inc(bi);
        Inc(w);
        continue;

        goback:

          Dec(bi);
          while (bi >= 0) and (back[bi,1]^ = #0) do
            Dec(bi);

          if bi < 0 then
          begin
            Result := False;
            Exit;
          end;

          w := back[bi,0];
          Inc(w);
          Inc(back[bi,1]);
          n := back[bi,1];
          Inc(bi);
          continue;
        end;

      '?':
      begin
        if n^ = #0 then
        begin
          if bi > 0 then
            goto goback;
          Result := False;
          Exit;
        end;
      end;
     
      else // default
      begin
        s1 := n^;
        s2 := w^;

        if s1 <> s2 then
        begin
          if bi > 0 then
            goto goback;
          Result := False;
          Exit;
        end;
      end; // default
    end; // case ...

    if n^ > #0 then
      Inc(n);
    if w^ > #0 then
      Inc(w);
  end;
  Result := True;
end;


function CompareWildText(const wild, Name : string) : Boolean;
begin
  Result := CompareWildString(AnsiUpperCase(wild), AnsiUpperCase(Name));
end;

end.
In Str1 darfst du dann * und ? einbauen, wie in der Windows-Suche.
CompareWildText(Str1, Str2)
Christian Schubert
Ich fange gerade erst an, den Umfang meiner Ahnungslosigkeit zu begreifen...
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz