{ This is an automatically generated lazarus resource file }

LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#237#0#6'Height'#3'.'#1#3'Top'#3'8'#1#5'Wi'
  +'dth'#3#24#2#13'ActiveControl'#7#7'Button1'#7'Caption'#6' Bug in Pascal Scri'
  +'pt for Lazarus'#12'ClientHeight'#3'.'#1#11'ClientWidth'#3#24#2#10'LCLVersio'
  +'n'#6#6'0.9.29'#0#5'TMemo'#5'Memo1'#4'Left'#2#0#6'Height'#3#139#0#3'Top'#2'7'
  +#5'Width'#3#24#2#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
  +'kRight'#8'akBottom'#0#13'Lines.Strings'#1#6#15'program TestPS;'#6#0#6#3'var'
  +#6#30'  Str,Str1,str2,str3 : String;'#6'$  Arr,Arr1,Arr2,Arr3 : TStringArray'
  +';'#6#14'  I : integer;'#6#14'  p: w_TPoint;'#6#5'begin'#6#30'  TestParamete'
  +'rs(1,2,3,4,5,6);'#6'1  if TestResult(1,2,3,4,5,6) = (1+2+3+4+5+6) then'#6'M'
  +'    Writeln(''Result = '' + inttostr(1+2+3+4+5+6) + ''. Passed the result t'
  +'est'')'#6#6'  else'#6'>    Writeln(''Result = ''  + Inttostr(TestResult(1,2'
  +',3,4,5,6)) +'#6#31'     ''. Failed @ result test'');'#6#22'  p := makePoint'
  +'(2,2);'#6'8  writeln(''p: '' + inttostr(p.x) + '', '' + inttostr(p.y));'#6
  +#14'  Str1 := ''l'';'#6#14'  Str2 := ''o'';'#6#14'  Str3 := ''l'';'#6'*  if '
  +'TestString(Str1,Str2,Str3) = ''a'' then'#6'%    Writeln(''String test succe'
  +'sful.'')'#6#6'  else'#6'#    Writeln(''String test failed.'');'#6'8  if (st'
  +'r1 = ''l'') and (str2 = ''o'') and (str3 = ''l'') then'#6'(    Writeln(''St'
  +'ring test passed again.'')'#6#6'  else'#6'#    Writeln(''String test failed'
  +'.'');'#6#16'  Str := ''Test'';'#6'''  if TestStringEdit(Str) = ''hopla'' th'
  +'en'#6',    Writeln(''TestStringEdit result passed.'')'#6#6'  else'#6'-    W'
  +'riteln(''TestStringEdit result failed.'');'#6#22'  if Str = ''tseT'' then'#6
  +'+    Writeln(''TestStringEdit input passed.'')'#6#6'  else'#6',    Writeln('
  +'''TestStringEdit input failed.'');'#6#21'  TestArrayEdit(Arr);'#6'"  For i '
  +':= 0 to Length(arr) - 1 do'#6#20'    Writeln(Arr[i]);'#6'*  Writeln(''it sh'
  +'ouldve written: "abcd!"'');'#6'1  Arr := TStringArray([''Dit'',''is'',''een'
  +''',''test'']);'#6#24'  TestArrayPassing(arr);'#6'<  TestArrayPassing(TStrin'
  +'gArray([''Dit'',''is'',''een'',''test'']));'#6'&  Arr1 := TStringArray([''W'
  +''',''a'',''t'']);'#6'-  Arr2 := TStringArray([''T'',''es'',''t'',''ing'']);'
  +#6'''  Arr3 := TStringArray([''Wowing'',''!'']);'#6'#  Arr3 := TestArrayFull'
  +'(Arr1,Arr2);'#6'/  Writeln(''Should writeln: Hoi Hoe Gaat Het?'');'#6#29'  '
  +'for i := 0 to high(arr1) do'#6#21'    Writeln(arr1[i]);'#6#14'  Writeln('''
  +''');'#6'&  Writeln(''Should writeln: Testing!'');'#6#29'  for i := 0 to hig'
  +'h(arr2) do'#6#20'   writeln(arr2[i]);'#6#14'  writeln('''');'#6'3  Writeln('
  +'''Should writeln: Waza? Gaat alles goed'');'#6#29'  for I := 0 to high(arr3'
  +') do'#6#21'    Writeln(arr3[i]);'#6#0#6#4'end.'#0#8'OnChange'#7#11'Memo1Cha'
  +'nge'#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#8'WordWrap'#8#0#0#5'TM'
  +'emo'#5'Memo2'#4'Left'#2#0#6'Height'#2'l'#3'Top'#3#194#0#5'Width'#3#24#2#5'A'
  +'lign'#7#8'alBottom'#8'TabOrder'#2#1#0#0#7'TButton'#7'Button1'#4'Left'#2#0#6
  +'Height'#2'7'#3'Top'#2#0#5'Width'#3#24#2#5'Align'#7#8'alCustom'#7'Anchors'#11
  +#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#7'Compile'#7'OnClick'#7#12'But'
  +'ton1Click'#8'TabOrder'#2#2#0#0#0
]);