August 29, 2008 10:16pm pdt

1. ziolko 326,855
2. ciuly 225,985
3. TheRealL... 148,008
4. MerijnB 144,827
5. Geert_Gr... 132,301
6. SteveBay 122,088
7. developm... 116,878
8. rfwoolf 102,158
9. ThievingSix 96,336
10. Johnjces 81,552
11. rllibby 64,270
12. dinilud 49,668
13. CodedK 46,191
14. kretzsch... 41,841
15. atul_par... 41,525
16. EddieShip... 36,154
17. mikelittlew... 36,100
18. Steven-F... 31,043
19. mokule 29,652
20. Workshop... 29,099
21. wd123 24,878
22. aikimark 23,847
23. bernani 19,191
24. calinutz 19,008
25. RickJ 17,874

1. kretzsch... 1,396,754
2. rllibby 1,301,830
3. ciuly 1,033,302
4. Madshi 662,000
5. Slick812 645,363
6. ziolko 631,710
7. geobul 628,081
8. EddieShip... 622,489
9. mnasman 600,905
10. Workshop... 557,765
11. inthe 514,714
12. TheRealL... 497,455
13. Ferruccio68 441,154
14. mokule 423,405
15. DragonSl... 394,371
16. MerijnB 393,230
17. mikelittlew... 389,144
18. Epsylon 324,729
19. esoftbg 316,932
20. Lee_Nover 297,111
21. rwilson 293,576
22. BlackTigerX 277,597
23. Ivanov_G 272,786
24. robert_m... 256,993
25. calinutz 248,991

07.10.2008 at 06:48AM PDT, ID: 23553687

	[x] Attachment Details

passing a TStringlist between 2 forms ...

Asked by BdLm in Delphi Programming, Programming Languages, Pascal Programming Language

I'm working with 2 forms and I want to call from one form a function inside the other form,
why do I get an run time error, I can't see the error, I can't see my error .-( Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

           
           
             Form1:   here I get the run time error 
procedure TLibraryDefinitionsForm.AutoInsert(aRecord : TStringList);
var    i   :  Integer;
begin
 
      for i:= 0 to aRecord.Count-1 do
         begin
               LibViewStatusBar.SimpleText :=  aRecord[i];
         end;
 
 
end;
 
 
From2 :  here I create the data ....
 
procedure TLoadExcelLibForm.ImportDataSetButtonClick(Sender: TObject);
var   i,j       :  Integer;
      aRecord   :  TStringList;
begin
     //
     aRecord  :=TStringList.Create;
 
     ADOQuery.First;
 
     repeat
 
        //
        aRecord.Clear;
 
 
        //  loop  through all fields
        //
        for j:= 0 to  ADOFieldNamesListBox.Count-1 do
           if ADOFieldNamesListBox.Selected[j] then
               begin
                 //  show the field
                 MyStatusBar.SimpleText := ADOQuery.FieldByName(ADOFieldNamesListBox.Items[j]).asString;
 
                 aRecord.Add(MyStatusBar.SimpleText);
 
                 aRecord.Add('******');
                 aRecord.Add('xxxxxxx');
 
                 end;
         //  just for debugging, aRecord has the correct data inside ...
         //
        for i:= 0 to aRecord.Count-1 do
         begin
            MyStatusBar.SimpleText :=  aRecord[i];
 
         end;
 
         //  call the function inside the other module ->  
         // where is the bug ??????????
        LibraryDefinitionsForm.AutoInsert(aRecord);
 
        ADOQuery.Next;
 
     until ADOQuery.Eof;
 
     //
     aRecord.Free;
end;
 
end.

           
         

Keywords: passing a TStringlist between 2 forms…

	Title
1	Returning a TStringList from a function?
2	Access violation TStringList
3	TstringList can not assign
4	Problems with Tstringlists...
5	Open a details.aspx page and pass …
6	Pass file data to a new form to upload

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

passing a TStringlist between 2 forms ...

Asked by BdLm in Delphi Programming, Programming Languages, Pascal Programming Language

About this solution