How To Retrieve A Record From A Sorted MS Access ADOTable

procedure ColumnDatasetToStrings(Column: string; Dataset: TDataset; List: TStrings);
begin
  List.BeginUpdate;
  try
    List.Clear;
    Dataset.First;
    while not Dataset.Eof do 
    begin
      List.Add(Dataset.FieldByName(Column).AsString));
      Dataset.Next;
    end;
  finally
    List.EndUpdate;
  end;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

az
procedure TForm1.ColumnDataSetToStrings(Column: string; Dataset: TDataset; List: TStrings);
begin
 
 with Form1.ADOTable1 do begin
  ADOTable1.Sort := 'ModemID ASC';
 end;
 
  List.BeginUpdate;
  try
    List.Clear;
    Dataset.First;
    while not Dataset.Eof do begin
      List.Add(Dataset.FieldByName(Column).AsString));
      Dataset.Next;
    end;
  finally
    List.EndUpdate
   end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, iComponent, iVCLComponent, iCustomComponent, iPanel, ComCtrls,
  iLabel, StdCtrls, iSwitchLed, ExtCtrls, OoMisc, AdPort, AdWnPort,
  iThreadTimers, DB, ADODB, Grids, DBGrids, iMotor, iPositionComponent,
  iProgressComponent, iLedBar;
 
 
  procedure PollDelay(Delay_us : LongInt);
  //procedure PollAccount();                          //Doesn't Work Here
  procedure BuildPollArray();
  procedure ShowDataSetFields(DataSet: TDataSet);
  //procedure ColumnDataSetToStrings(List:TStrings);  //Doesn't Work Here
type
 
  TModemIDArray = array[0..42] of String;         //For Development And Testing
 
  TForm1 = class(TForm)
    iPanel1: TiPanel;
    iPanel2: TiPanel;
    iLabel1: TiLabel;
    iLabel2: TiLabel;
    iLabel3: TiLabel;
    iLabel5: TiLabel;
    iLabel6: TiLabel;
    iLabel7: TiLabel;
    iLabel4: TiLabel;
    iLabel8: TiLabel;
    SysComList: TListBox;
    iSwitchLed1: TiSwitchLed;
    iSwitchLed2: TiSwitchLed;
    iPanel3: TiPanel;
    Panel1: TPanel;
    PollingPortRx1: TApdComPort;
    PollingPortRx2: TApdComPort;
    PollingPortTx: TApdComPort;
    HEMComPort: TApdComPort;
    ApdWinsockPort1: TApdWinsockPort;
    ApdWinsockPort2: TApdWinsockPort;
    PollingTimer: TiThreadTimers;
    PollingSw: TiSwitchLed;
    iLabel9: TiLabel;
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1ModemID: TWideStringField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ActivityDisplayList: TMemo;
    iPanel4: TiPanel;
    ManControlCon: TMemo;
    InitHEMButton: TButton;
    SetOutPutAButton: TButton;
    CLROutPutAButton: TButton;
    Button13: TButton;
    SendBlockButton: TButton;
    SendOutPutBButton: TButton;
    CLROutPutBButton: TButton;
    Button17: TButton;
    SendAddressButton: TButton;
    ReturnZonesButton: TButton;
    ReturnParamsButton: TButton;
    Button21: TButton;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    iLedBar1: TiLedBar;
    Panel2: TPanel;
    CLR: TButton;
    ListBox1: TListBox;
    procedure FormActivate(Sender: TObject);
    procedure HEMComPortPortOpen(Sender: TObject);
    procedure HEMComPortTriggerAvail(CP: TObject; Count: Word);
    procedure PollingPortRx1TriggerAvail(CP: TObject; Count: Word);
    procedure PollingPortRx1PortOpen(Sender: TObject);
    procedure PollingPortRx2PortOpen(Sender: TObject);
    procedure PollingPortTxPortOpen(Sender: TObject);
    procedure PollingPortRx2TriggerAvail(CP: TObject; Count: Word);
    procedure PollingTimerTimer1(Sender: TObject);
    procedure PollingSwClick(Sender: TObject);
    procedure InitHEMButtonClick(Sender: TObject);
    procedure SendBlockButtonClick(Sender: TObject);
    procedure SendAddressButtonClick(Sender: TObject);
    procedure SetOutPutAButtonClick(Sender: TObject);
    procedure SendOutPutBButtonClick(Sender: TObject);
    procedure ReturnZonesButtonClick(Sender: TObject);
    procedure CLROutPutAButtonClick(Sender: TObject);
    procedure CLROutPutBButtonClick(Sender: TObject);
    procedure ReturnParamsButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CLRClick(Sender: TObject);
 
    procedure PollAccount();                          //Only Works Here
    procedure ColumnDataSetToStrings(List:TStrings);   //Only Works Here
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  HEMChar: char;                                    //My Global Vars
  N,P, Block, OldBlock, Address: integer;
  ModemIDArray: TModemIDArray;
  PrintDirectFlag, LoggedOnFlag, ALCUpFlag, ALCDownFlag, PollFlag: Boolean;
  ModemID, PolledModemID: String;
  
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
 Var C : string;  N: integer;
begin
 HEMComPort.Open := True;                         //Initialize ComPorts
 PollingPortRx1.Open := True;
 PollingPortTx.Open := True;
 
 HEMComPort.Output := 'B';                        //Initialize HEM
 HEMComPort.Output := 'Z';
 
 BuildPollArray();                               //Build Test Array
 
 SysComList.Items.Add('System Boot... OK');
 
 N := 0; P := 0;                                 //Set Global Var Initial Value
 
 PollingTimer.Enabled1:= True;
 
end;
 
//****************** Generate Polling List Procedure *************************
procedure BuildPollArray();
 
begin
  //********* Temp Array For Development And Testing **\\
  ModemIDArray[0]  := '0100'; ModemIDArray[1]  := '0101';
  ModemIDArray[2]  := '0102'; ModemIDArray[3]  := '0103';
  ModemIDArray[4]  := '0104'; ModemIDArray[5]  := '0105';
  ModemIDArray[6]  := '0200'; ModemIDArray[7]  := '0201';
  ModemIDArray[8]  := '0202'; ModemIDArray[9]  := '0203';
  ModemIDArray[10] := '0300'; ModemIDArray[11] := '0310';
  ModemIDArray[12] := '0311'; ModemIDArray[13] := '0320';
  ModemIDArray[14] := '0350'; ModemIDArray[15] := '0351';
  ModemIDArray[16] := '0400'; ModemIDArray[17] := '0401';
  ModemIDArray[18] := '0402'; ModemIDArray[19] := '0403';
  ModemIDArray[20] := '0500'; ModemIDArray[21] := '0510';
  ModemIDArray[22] := '0520'; ModemIDArray[23] := '0530';
  ModemIDArray[24] := '0540'; ModemIDArray[25] := '0600';
  ModemIDArray[26] := '0601'; ModemIDArray[27] := '0602';
  ModemIDArray[28] := '0603'; ModemIDArray[29] := '0604';
  ModemIDArray[30] := '0700'; ModemIDArray[31] := '0720';
  ModemIDArray[32] := '0740'; ModemIDArray[33] := '0760';
  ModemIDArray[34] := '0780'; ModemIDArray[35] := '0800';
  ModemIDArray[36] := '0801'; ModemIDArray[37] := '0802';
  ModemIDArray[38] := '0803'; ModemIDArray[39] := '0804';
  ModemIDArray[40] := '0805'; ModemIDArray[41] := '0806';
 
end;
 
//********************** Polling Procedure ***********************************
procedure TForm1.PollAccount();
var
OldBlock: integer;
begin
 PollingSw.Active := True;                       //Turn On Poll Switch
 
 OldBlock := Block;                              //Check if New Block Is Req'd
 Block := StrToInt(ModemIDArray[P]) div 100;        //Process Block
 Address := StrToInt(ModemIDArray[P])-(Block*100);  //Process Address
 
 if Block <> OldBlock then begin             //Test If New Block Req'd
 PollingPortTx.Output := Char($C2);          //Set Block Opcode
 PollDelay(300);                             //300us Req'd For Modem Processing
 PollingPortTx.Output := Char(Block);        //Set Block
 PollDelay(300);                             //300us Req'd For Modem Processing
 PollingPortTx.Output := Char($C1);          //Confirm Block Confirm Opcode
 PollDelay(300);                             //300us Req'd For Modem Processing
 PollingPortTx.Output := Char(Block);        //Confirm Block
 PollDelay(300);
 end;
 
 PollingPortTx.Output := Char(Address);      //Poll Address
 PolledModemID := ModemIDArray[P];           //Buffer For Reporting
 
 if P <= 40 then inc(P) else P:=0;           //For Development And Test Array
 
end;
 
//********************** EE Instructional Proceedures ************************
//********************** Launches With Button Two ****************************
procedure TForm1.ColumnDataSetToStrings(List:TStrings);
 
begin
 with self.ADOTable1 do begin
 ADOTable1.Sort := 'ModemID ASC';
 end;
 
  List .BeginUpdate;
  try
    List.Clear;
    ADOTable1.First;
    while not ADOTable1.Eof do begin
     List.Add(ADOTable1.FieldByName(ModemID).AsString);
      ADOTable1.Next;
    end;
  finally
    List.EndUpdate
  end;
end;
//********************** Launch With Button One ******************************
procedure ShowDataSetFields(DataSet: TDataSet);
Var I: Integer;  C, D: string;
begin
  showmessage(IntToStr(Dataset.RecordCount));         //For Testing
  for I := 0 to DataSet.Fields.Count-1   do begin
    showMessage (Format('Fields:%s; Value: "%s"',     //For Testing
    [DataSet.Fields.Fields[I].FieldName,
    DataSet.Fields.Fields[I].AsString]));
  end;
 
end;
//***************************** End Of EE Procedures *************************
//****************************************************************************
 
 
//************************* ComPort Procedures *******************************
procedure TForm1.HEMComPortPortOpen(Sender: TObject);
begin
SysComList.Items.Add('HEM Com Port... Open');
end;
 
procedure TForm1.PollingPortRx1PortOpen(Sender: TObject);
begin
SysComList.Items.Add('HEM Rx1 Port... Open');
end;
 
procedure TForm1.PollingPortRx2PortOpen(Sender: TObject);
begin
SysComList.Items.Add('HEM Rx2 Port... Open');
end;
 
procedure TForm1.PollingPortTxPortOpen(Sender: TObject);
begin
SysComList.Items.Add('HEM Tx Port... Open');
end;
 
procedure TForm1.HEMComPortTriggerAvail(CP: TObject; Count: Word);
var
I: Word; HEMPacket: String;
begin
 for I := 1 to count do begin
  HEMPacket := HEMPacket + HEMComPort.GetChar;
 end;//for
 
 If PrintDirectFlag then begin
  ManControlCon.Lines.Add(HEMPacket + ' Confirmed');
  PrintDirectFlag := False;
  end
 else if not PrintDirectFlag then begin
  SysComList.Items.Add(HEMPacket +' Confimed');
 end;//if
 
end;
 
procedure TForm1.PollingPortRx1TriggerAvail(CP: TObject; Count: Word);
var
I: Word; C: Char; PacketRx1: String;
begin
 N := N+1;
 for I := 1 to count do begin
   PacketRx1 := PacketRx1 + IntToHex(ord(PollingPortRx1.GetChar),2);
 end;//for
 
 ActivityDisplayList.Lines.Add(PolledModemID+' '+PacketRx1);
 //Label1.Caption := IntToStr(N);//showmessage(IntToStr(N+1));
 //PollAccount();
 
end;
 
procedure TForm1.PollingPortRx2TriggerAvail(CP: TObject; Count: Word);
var
I: Word; C: Char;
begin
 
end;
 
 //*************************Button Functions *********************************
procedure TForm1.PollingSwClick(Sender: TObject);
begin
 
 if PollingTimer.Enabled1 <> True then begin
    PollingSw.Caption := 'Polling ON';
    PollingSw.ActiveColor := clLime;
    PollingTimer.Enabled1 := True;
    //iMotor1.FanOn := True;
 end else if PollingTimer.Enabled1 <> False then begin
    PollingSw.Caption := 'Polling OFF';
    PollingSw.Active := True;
    PollingSw.ActiveColor := clRed;
    PollingTimer.Enabled1 := False;
    //iMotor1.FanOn := False
 end;//if
end;
 
procedure TForm1.InitHEMButtonClick(Sender: TObject);
begin
PrintDirectFlag := True;
HEMComPort.Output := 'B';
HEMComPort.Output := 'Z';
ManControlCon.Clear;
end;
 
procedure TForm1.SendBlockButtonClick(Sender: TObject);
begin
PollingPortTx.Output := Char($C2);
 PollDelay(300);
 PollingPortTx.Output := Char($05);
 PollDelay(300);
 PollingPortTx.Output := Char($C1);
 PollDelay(300);
 PollingPortTx.Output := Char($05);
 PollDelay(1000);
 
 ManControlCon.Lines.Add('Block Sent');
end;
 
procedure TForm1.SendAddressButtonClick(Sender: TObject);
var x: integer;
begin
 for x:= 1 to 1 do begin
  PollingPortTx.Output := Char($00);
  PollDelay(1000);
  PollingPortTx.Output := Char($01);
  ManControlCon.Clear;
 end;
end;
 
procedure TForm1.SetOutPutAButtonClick(Sender: TObject);
begin
 PollingPortTx.Output := Char($B0);
 PollDelay(300);
 PollingPortTx.Output := Char($00);
 ManControlCon.Lines.Add('OutPut "A" Set');
end;
 
procedure TForm1.SendOutPutBButtonClick(Sender: TObject);
begin
 PollingPortTx.Output := Char($A4);
 PollDelay(300);
 PollingPortTx.Output := Char($00);
 ManControlCon.Lines.Add('OutPut "B" Set');
end;
 
procedure TForm1.ReturnZonesButtonClick(Sender: TObject);
begin
 PollingPortTx.Output := Char($92);
 PollDelay(300);
 PollingPortTx.Output := Char($00);
 ManControlCon.Clear;
end;
 
procedure TForm1.CLROutPutAButtonClick(Sender: TObject);
begin
 PollingPortTx.Output := Char($A8);
 PollDelay(300);
 PollingPortTx.Output := Char($00);
 ManControlCon.Lines.Add('OutPut "A" CLR');
end;
 
procedure TForm1.CLROutPutBButtonClick(Sender: TObject);
begin
 PollingPortTx.Output := Char($A2);
 PollDelay(300);
 PollingPortTx.Output := Char($00);
 ManControlCon.Lines.Add('OutPut "B" CLR');
end;
 
procedure TForm1.ReturnParamsButtonClick(Sender: TObject);
begin
PollingPortTx.Output := Char($89);
 PollDelay(300);
 PollingPortTx.Output := Char($00);
 ManControlCon.Clear;
end;
 
procedure TForm1.CLRClick(Sender: TObject);
begin
ManControlCon.Clear;
end;
 
//****************** Timer Procedures ****************************************
procedure TForm1.PollingTimerTimer1(Sender: TObject);
var x, y: integer; Test: string;
begin
PollAccount();
end;
 
//******************** MicroSecond Timer *************************************
procedure PollDelay(Delay_us : LongInt);
var
  time: Int64;
  lasttime: Int64;
  perf_freq: Int64;
  diff: LongInt;
begin
  QueryPerformanceFrequency(perf_freq); //showmessage(IntToStr(perf_freq));
  perf_freq := perf_freq div 1000000;   //Yeilds a value of "3"
  QueryPerformanceCounter(time);
  lasttime := time;                     //Yeilds a value of "1,542,210,808,248
  while True do begin
    QueryPerformanceCounter(time);
    diff := time - lasttime;
    diff := diff div perf_freq;
    if (diff >= Delay_us) then break;
  end;
end;
 
//**************** Buttons For EE Procedures *********************************
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowDataSetFields(ADOTable1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ColumnDataSetToStrings(ListBox1.Items) ;         //Doesn't Work
end;
 
end.

                                              

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:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:

type
  TForm1 = class(TForm)
  ...
  private
    procedure ShowDataSetFields(DataSet: TDataSet);
    procedure ColumnDataSetToStrings(List:TStrings);
  public
  
  end;
 
procedure TForm1.ShowDataSetFields(DataSet: TDataSet);
begin
  ... 
end;
 
procedure TForm1.ColumnDataSetToStrings(List:TStrings);
begin
  ...
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19: