AnsiStrRScan
Riddle
AnsiStrRScan
Moduł: SysUtils
program Foo;
uses
SysUtils;
{$APPTYPE CONSOLE}
var
S1: String;
C: Char;
begin
S1 := '4programmers.net';
C := '.'
Writeln(AnsiStrRScan(PChar(S1), C)); // Zobaczymy ".net"
end.
Zobacz też: