Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: Platzhalter in Dateinamen bei FindFirst

  Alt 19. Okt 2010, 13:54
Nein geht nicht über den Filter, dass musst du im Nachhinein nochmals selber filtern.
Zum Prüfen könntest du dann RegEx benutzen

oder

Delphi-Quellcode:
function StringBefore( const SubStr, Str : string ) : string;
  var
    p : integer;
  begin
    p := Pos( SubStr, Str );
    if ( p = 0 ) then
      p := Length( Str )
    else
      p := p - 1;
    if ( p > 0 ) then
      Result := Copy( Str, 1, p )
    else
      Result := '';
  end;
und dann so prüfen
Delphi-Quellcode:
str := StringBefore( 'LAB', sr.Filename );
if StrToIntDef( str, 0 ) <> 0 then
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (19. Okt 2010 um 14:12 Uhr)
  Mit Zitat antworten Zitat