mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-30 04:42:21 -05:00
36 lines
2.5 KiB
Plaintext
36 lines
2.5 KiB
Plaintext
|
{ 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#21' Arr : TS'
|
||
|
|
+'tringArray;'#6#14' I : integer;'#6#14' p: w_TPoint;'#6#5'begin'#6#30' Te'
|
||
|
|
+'stParameters(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 th'
|
||
|
|
+'e result test'')'#6#6' else'#6'> Writeln(''Result = '' + Inttostr(Test'
|
||
|
|
+'Result(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 te'
|
||
|
|
+'st succesful.'')'#6#6' else'#6'# Writeln(''String test failed.'');'#6'8'
|
||
|
|
+' if (str1 = ''l'') and (str2 = ''o'') and (str3 = ''l'') then'#6'( Writ'
|
||
|
|
+'eln(''String test passed again.'')'#6#6' else'#6'# Writeln(''String tes'
|
||
|
|
+'t failed.'');'#6#16' Str := ''Test'';'#6''' if TestStringEdit(Str) = ''ho'
|
||
|
|
+'pla'' 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' else'#6', '
|
||
|
|
+'Writeln(''TestStringEdit input failed.'');'#6#21' TestArrayEdit(Arr);'#6'"'
|
||
|
|
+' For i := 0 to Length(arr) - 1 do'#6#21' Writeln(Arr[i]); '#6'* Writel'
|
||
|
|
+'n(''it shouldve written: "abcd!"'');'#6'1 Arr := TStringArray([''Dit'',''i'
|
||
|
|
+'s'',''een'',''test'']);'#6#24' TestArrayPassing(arr);'#6'< TestArrayPassi'
|
||
|
|
+'ng(TStringArray([''Dit'',''is'',''een'',''test'']));'#6#4'end.'#0#8'OnChang'
|
||
|
|
+'e'#7#11'Memo1Change'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo2'#4'Left'#2#0#6'He'
|
||
|
|
+'ight'#2'l'#3'Top'#3#192#0#5'Width'#3#144#1#5'Align'#7#8'alBottom'#8'TabOrde'
|
||
|
|
+'r'#2#1#0#0#7'TButton'#7'Button1'#4'Left'#2#0#6'Height'#2'7'#3'Top'#2#0#5'Wi'
|
||
|
|
+'dth'#3#144#1#5'Align'#7#8'alClient'#7'Caption'#6#7'Compile'#7'OnClick'#7#12
|
||
|
|
+'Button1Click'#8'TabOrder'#2#2#0#0#0
|
||
|
|
]);
|