2010-01-25 08:59:44 -05:00
|
|
|
{ This is an automatically generated lazarus resource file }
|
|
|
|
|
|
|
|
|
|
LazarusResources.Add('TForm1','FORMDATA',[
|
2010-04-07 14:09:39 -04:00
|
|
|
'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
|
2010-01-25 08:59:44 -05:00
|
|
|
]);
|
