AnsiStrPos

Riddle
AnsiStrPos
Moduł: SysUtils
```delphi function AnsiStrPos(Str, SubStr: PChar): PChar; ``` Metoda jest identyczna do [[Delphi/StrPos]], ale wspiera wielobajtowe znaki.
program Foo;

uses
  SysUtils;

{$APPTYPE CONSOLE}

var
  S: String;

begin
  S := '4programmers.net';
  Writeln(AnsiStrPos(PChar(S), '.')); // Zobaczymy ".net";
end.

Zobacz też:

0 komentarzy