blob: b5b09dd65be467c237a2621f9b3134053176ada1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Source provided for Free Pascal Bug Report 3124 }
{ Submitted by "Radoslaw Stachowiak" on 2004-05-29 }
{ e-mail: zenek_tm@tenbit.pl }
program strtest;
{$apptype console}
{$ifdef fpc}
{$mode objfpc}
{$endif}
uses strutils;
var
a, b: ansistring;
begin
a:='aaaa';
b:='AaAa';
if AnsiStartsText(a, b) then
writeln('ok')
else
halt(1);
end.
|
