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