1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-05 15:12:19 -05:00
Simba/trunk/Projects/PStest/unit1.lfm

101 lines
3.0 KiB
Plaintext
Raw Normal View History

object Form1: TForm1
Left = 347
Height = 300
Top = 314
Width = 400
ActiveControl = Button1
Caption = 'Bug in Pascal Script for Lazarus'
ClientHeight = 300
ClientWidth = 400
LCLVersion = '0.9.29'
object Memo1: TMemo
Left = 0
Height = 137
Top = 55
Width = 400
Align = alBottom
Lines.Strings = (
'program TestPS;'
''
'var'
' Str,Str1,str2,str3 : String;'
' Arr,Arr1,Arr2,Arr3 : TStringArray;'
' I : integer;'
' p: w_TPoint;'
'begin'
' TestParameters(1,2,3,4,5,6);'
' if TestResult(1,2,3,4,5,6) = (1+2+3+4+5+6) then'
' Writeln(''Result = '' + inttostr(1+2+3+4+5+6) + ''. Passed the result test'')'
' else'
' Writeln(''Result = '' + Inttostr(TestResult(1,2,3,4,5,6)) +'
' ''. Failed @ result test'');'
' p := makePoint(2,2);'
' writeln(''p: '' + inttostr(p.x) + '', '' + inttostr(p.y));'
' Str1 := ''l'';'
' Str2 := ''o'';'
' Str3 := ''l'';'
' if TestString(Str1,Str2,Str3) = ''a'' then'
' Writeln(''String test succesful.'')'
' else'
' Writeln(''String test failed.'');'
' if (str1 = ''l'') and (str2 = ''o'') and (str3 = ''l'') then'
' Writeln(''String test passed again.'')'
' else'
' Writeln(''String test failed.'');'
' Str := ''Test'';'
' if TestStringEdit(Str) = ''hopla'' then'
' Writeln(''TestStringEdit result passed.'')'
' else'
' Writeln(''TestStringEdit result failed.'');'
' if Str = ''tseT'' then'
' Writeln(''TestStringEdit input passed.'')'
' else'
' Writeln(''TestStringEdit input failed.'');'
' TestArrayEdit(Arr);'
' For i := 0 to Length(arr) - 1 do'
' Writeln(Arr[i]);'
' Writeln(''it shouldve written: "abcd!"'');'
' Arr := TStringArray([''Dit'',''is'',''een'',''test'']);'
' TestArrayPassing(arr);'
' TestArrayPassing(TStringArray([''Dit'',''is'',''een'',''test'']));'
' Arr1 := TStringArray([''W'',''a'',''t'']);'
' Arr2 := TStringArray([''T'',''es'',''t'',''ing'']);'
' Arr3 := TStringArray([''Wowing'',''!'']);'
' Arr3 := TestArrayFull(Arr1,Arr2);'
' Writeln(''Should writeln: Hoi Hoe Gaat Het?'');'
' for i := 0 to high(arr1) do'
' Writeln(arr1[i]);'
' Writeln('''');'
' Writeln(''Should writeln: Ik ben een geest!'');'
' for i := 0 to high(arr2) do'
' writeln(arr2[i]);'
' writeln('''');'
' Writeln(''Should writeln: Waza? Gaat alles goed'');'
' for I := 0 to high(arr3) do'
' Writeln(arr3[i]);'
''
'end.'
)
OnChange = Memo1Change
TabOrder = 0
end
object Memo2: TMemo
Left = 0
Height = 108
Top = 192
Width = 400
Align = alBottom
TabOrder = 1
end
object Button1: TButton
Left = 0
Height = 55
Top = 0
Width = 400
Align = alClient
Caption = 'Compile'
OnClick = Button1Click
TabOrder = 2
end
end