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?