det er nemlig ikke mig der skal bruge funktionen senere, men nogle praktiserende læger, og jeg er ikke sikke på at det er nemt at forklare dem hvordan man gør det.
jeg fandt et koponent der klarer det, med at indsætte data i SPSS, men det sløver programmet, og jeg ville derfor bruge en tråd. men jeg får den mærkeligste fejl:
procedure TtestThread.Execute; var i,j,l:integer; begin spssfile:=Tspssdatafile.Create(application); spssfile.WriteDirect:=true; // Canvas does not allow drawing spssfile.Compressed:=true; spssfile.Filename:='c:\test.sav'; spssfile.OpenNew; for l:=1 to 99 do begin with spssfile.Variables.Add('Test'+inttostr(l),true,8) do begin labelText:='Var text'+inttostr(l); end; end; spssfile.SaveDictionary; spssfile.Close; spssfile.Filename:='c:\test.sav'; spssfile.WriteDirect:=true; spssfile.Open; randomize; for i:=1 to 99 do begin with spssfile.Cases.Add do begin for j:=0 to spssfile.Variables.Count-1 do begin value[j]:=random(5); end; Save; end; end; end;
fejlen kommer kun hvis jeg laver det i en tråd, ikke hvis jeg bare bruger en almindelig procedure ???
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.