{ This is an automatically generated lazarus resource file }

LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'['#1#6'Height'#3','#1#3'Top'#3':'#1#5'Wid'
  +'th'#3#144#1#13'ActiveControl'#7#7'Button1'#7'Caption'#6' Bug in Pascal Scri'
  +'pt for Lazarus'#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#10'LCLVersi'
  +'on'#6#6'0.9.29'#0#5'TMemo'#5'Memo1'#4'Left'#2#0#6'Height'#3#137#0#3'Top'#2
  +'7'#5'Width'#3#144#1#5'Align'#7#8'alBottom'#13'Lines.Strings'#1#6#15'program'
  +' TestPS;'#6#0#6#3'var'#6#30'  Str,Str1,str2,str3 : String;'#6'$  Arr,Arr1,A'
  +'rr2,Arr3 : TStringArray;'#6#14'  I : integer;'#6#14'  p: w_TPoint;'#6#5'beg'
  +'in'#6#30'  TestParameters(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 test'')'#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'  Str'
  +'3 := ''l'';'#6'*  if TestString(Str1,Str2,Str3) = ''a'' then'#6'%    Writel'
  +'n(''String test succesful.'')'#6#6'  else'#6'#    Writeln(''String test fai'
  +'led.'');'#6'8  if (str1 = ''l'') and (str2 = ''o'') and (str3 = ''l'') then'
  +#6'(    Writeln(''String test passed again.'')'#6#6'  else'#6'#    Writeln('
  +'''String test failed.'');'#6#16'  Str := ''Test'';'#6'''  if TestStringEdit'
  +'(Str) = ''hopla'' then'#6',    Writeln(''TestStringEdit result passed.'')'#6
  +#6'  else'#6'-    Writeln(''TestStringEdit result failed.'');'#6#22'  if Str'
  +' = ''tseT'' then'#6'+    Writeln(''TestStringEdit input passed.'')'#6#6'  e'
  +'lse'#6',    Writeln(''TestStringEdit input failed.'');'#6#21'  TestArrayEdi'
  +'t(Arr);'#6'"  For i := 0 to Length(arr) - 1 do'#6#20'    Writeln(Arr[i]);'#6
  +'*  Writeln(''it shouldve written: "abcd!"'');'#6'1  Arr := TStringArray(['''
  +'Dit'',''is'',''een'',''test'']);'#6#24'  TestArrayPassing(arr);'#6'<  TestA'
  +'rrayPassing(TStringArray([''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 G'
  +'aat Het?'');'#6#29'  for i := 0 to high(arr1) do'#6#21'    Writeln(arr1[i])'
  +';'#6#14'  Writeln('''');'#6'/  Writeln(''Should writeln: Ik ben een geest!'
  +''');'#6#29'  for i := 0 to high(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'Memo1Change'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo2'#4'Lef'
  +'t'#2#0#6'Height'#2'l'#3'Top'#3#192#0#5'Width'#3#144#1#5'Align'#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#144#1#5'Align'#7#8'alClient'#7'Caption'#6#7'Compile'#7'OnCli'
  +'ck'#7#12'Button1Click'#8'TabOrder'#2#2#0#0#0
]);