StrScan

Z Delphi & Pascal (česká wiki)

Verze z 8. 10. 2012, 18:02, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: unit string)

(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)

Skočit na navigaci Skočit na vyhledávání

Vrací ukazatel na první výskyt znaku v řetězci.

Deklarace

function StrScan(Str: PChar; Chr: Char): PChar;

Režim: Windows, Reálný, Chráněný

Návratová hodnota: 0, jestliže Chr není obsažen v Str

Poznámky: StrScan vrací pointr na první výskyt Chr v Str. Jestliže Chr se v Str nevyskytuje, StrScan vrátí nil. Nulový ukončovací znak se považuje za součást řetězce.

Viz také: StrRScan

Vzorový příklad

{StrScan.PAS}
{Vzorový příklad pro funkci StrScan.}
{ Vrací TRUE, pokud jméno souboru obsahuje expanzní znaky }
{ Pro Windows: }
{ uses WinCrt, Strings; }
uses Strings;
function HasWildcards(FileName: PChar): Boolean;
begin
  HasWildcards := (StrScan(FileName, '*') <> nil) or
    (StrScan(FileName, '?') <> nil);
end;
begin
   Writeln ('Má expanzní znaky: ', HasWildCards('C:Test.*'));
end.

Citováno z „https://trsek.com/pascal/index.php?title=StrScan&oldid=1699“

String