Click here to Skip to main content
15,886,137 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Hi,

I am learning f# but I have problem.

When I execute my program I have an error; "Incomplete structured construct at or before this point in expression"



C#
open System
open System.Windows.Forms
open System.Drawing
open System.Collections
open System.Collections.Generic


let lstfilename=ArrayList()
let filter = "NOOR files(*.t)|*.t|txt files(*.txt)|*.txt|all files(*.*)|*.*"
let mutable strfiledirectory=""
let mutable strfilename=""
let spliter=[]

let form=new Form() in
form.Width <-400
form.Dock <-DockStyle.Fill
form.Height<-300
form.Text<-"findwords"

form.Load.Add(fun ea ->                      
               let listspliter=new List<char>
               for inttemp1=126 to 127 do               
                  listSpliter.Add(Convert.ToChar((byte)i))
               for inttemp1=176 to 225 do
                  listSpliter.Add(Convert.ToChar((byte)i))
               listSpliter.Add(Convert.ToChar((byte)8))
               listSpliter.Add(Convert.ToChar((byte)9))
               listSpliter.Add(Convert.ToChar((byte)10))
               listSpliter.Add(Convert.ToChar((byte)13))
               listSpliter.Add(Convert.ToChar((byte)17))
               listSpliter.Add(Convert.ToChar((byte)0))
               listSpliter.Add(Convert.ToChar((byte)255))
               spliter = listSpliter.ToArray()
               )
Posted
Updated 25-Sep-11 22:28pm
v3
Comments
Dalek Dave 26-Sep-11 4:05am    
Edited for Grammar and Code Blocks.

1 solution

Hello there,
I don't know if you have solved this or not but here is a possible solution. You actually had only a feww errors.

Have a great day!
Jaxon7
p.s. I added some code to display the output. Have f#n


F#
#light

open System
open System.Windows.Forms
open System.Drawing
open System.Collections
open System.Collections.Generic
 

let lstfilename=ArrayList()
let filter = "NOOR files(*.t)|*.t|txt files(*.txt)|*.txt|all files(*.*)|*.*"
let mutable strfiledirectory=""
let mutable strfilename=""
let mutable spliter = [||]
 
let form=new Form()// in
form.Width <-400
form.Dock <-DockStyle.Fill
form.Height<-300
form.Text<-"findwords"
// RichTextView 
let textB = new RichTextBox()
textB.Dock <- DockStyle.Fill  
textB.Text <- "Hello World\n\nOK."
form.Controls.Add(textB)    

 
form.Load.Add(fun ea ->                      
               let listSpliter:List<char> = new List<char>()
               for inttemp1 in 126 .. 127 do               
                  listSpliter.Add(Convert.ToChar((byte)inttemp1))
               for inttemp1 in 176 .. 225 do
                  listSpliter.Add(Convert.ToChar((byte)inttemp1))
               listSpliter.Add(Convert.ToChar((byte)8))
               listSpliter.Add(Convert.ToChar((byte)9))
               listSpliter.Add(Convert.ToChar((byte)10))
               listSpliter.Add(Convert.ToChar((byte)13))
               listSpliter.Add(Convert.ToChar((byte)17))
               listSpliter.Add(Convert.ToChar((byte)0))
               listSpliter.Add(Convert.ToChar((byte)255))
               spliter <- listSpliter.ToArray() 
               form.Text <- String.Concat(spliter) 
               textB.Text <- form.Text
           )
form.ShowDialog()|>ignore
/pre></char></char>
 
Share this answer
 
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900