AnsiStrPos

TomRiddle
AnsiStrPos
Moduł: SysUtils
function AnsiStrPos(Str, SubStr: PChar): PChar;

Metoda jest identyczna do 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