[ dejov @ 16.06.2004. 13:30 ] @
Potrebno je da nizu karaktera st1: array[0..MAX_PATH-1] of Char; dodam vrednost koju zadajem u edit1. Ja to uradim ovako(celaq procedura): procedure TForm1.Button2Click(Sender: TObject); var St1: array[0..MAX_PATH-1] of Char; br,i:integer; a:string; begin a:=edit1.Text; br:=length(edit1.text); for i:=0 to br-1 do st1:=a; CreateDirectory(st1, nil); end; ali tada st1 ostane prazan, odnocno nema nista. Inace cilj mi je kreiranje direktorijuma koji ce se zvati na osnovu unosa u edit box. Sta da uradim pa da na osnovu unetog u editu uspem da kriram direktorijum? |