RAD Studio
VCL Referenz
SysUtils.StrScan Funktion
Beschreibung | Siehe auch
Alles schließenGibt einen Zeiger auf das erste Vorkommen eines bestimmten Zeichens
in einem
String zurück.
Pascal
function StrScan(
const Str: PAnsiChar; Chr: AnsiChar): PAnsiChar;
overload;
function StrScan(
const Str: PWideChar; Chr: WideChar): PWideChar;
overload;
C++
PAnsiChar StrScan(
const PAnsiChar Str, AnsiChar Chr);
PWideChar StrScan(
const PWideChar Str, WideChar Chr);
Datei
SysUtils
Beschreibung
StrScan gibt einen Zeiger auf das erste Vorkommen des Zeichens Chr im
String Str zurück. Ist Chr nicht
in Str enthalten, gibt die Funktion
nil (Delphi) bzw. NULL (C++) zurück. Das Terminierungszeichen wird als Teil des Strings betrachtet.
Anmerkung: Enthält der Quellstring internationale Zeichen, verwenden Sie stattdessen AnsiStrScan.
C++ Examples:
/*
The following example
uses an edit control
and a button
on a
form. When the button
is clicked, the text
in the edit
control
is searched
for a wildcard (asterisk character).
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (StrScan(Edit1->Text.c_str(), '*'))
ShowMessage("Wildcard found.");
else
ShowMessage("Wildcard not found.");
}
Delphi Examples:
{
The following example uses a button on a form. When the
button is clicked, the text is searched for a wildcard
(asterisk character).
}
function HasWildcards(FileName: PChar): Boolean;
{ Return true if file name has wildcards in it }
begin
HasWildcards := (StrScan(FileName, '
*') <>
nil)
or
(StrScan(FileName, '
?') <>
nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
const
P: PChar = '
C:\Test.* ';
begin
if HasWildcards(P)
then
ShowMessage('
The string has wildcards')
else
ShowMessage('
The string does not have wildcards');
end;
Siehe auch
AnsiStrScan
StrRScan