Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: Platzhalter in Dateinamen bei FindFirst
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)
|