[usfire]

Сообщение от lmikle

ну вот совсем не понятно что надо...
можно подробнее словами?

Код:

procedure TfrmTransportationsMonitorForm.Button1Click(Sender: TObject);
 var
 id : String  ;


begin
  TMQuery.SQL.Text := 'SELECT * FROM TABLE(TRANSPORTATIONS_DATA.RETURN_TRANSPORT) ORDER BY TECHNIKS';
  TMMemTable.DisableControls;
  try
    TMMemTable.Close;
    TMMemTable.Open;
    TMMemTable.First;
    var S := '';
    while not TMMemTable.Eof do
    begin
      S := S+TMMemTable.FieldByName('TECHNIKS_ID').AsString+'='+TMMemTable.FieldByName('TECHNIKS_IT_ID').AsString+',';
      TMMemTable.Next;


     //   new

           Memo1.Lines.add(TMMemTable.FieldByName('DRIVER').Text );

          Edit2.Text:=Memo1.Lines[1];


        //   new


     // Memo1.Lines.add(S+TMMemTable.FieldByName('DRIVER').Text );
     // memo1.SelStart ;




    end;
    Delete(S,length(S),1);
    TMMemTable.First;
    SetStatus;
    TMMemTable.Last;
    TMMemTable.First;
    if not Assigned(FChoiceColumn) then
      FChoiceColumn := TMGrid.Columns[2];
    TMGridSortMarkingChanged(nil);
    if length(id) > 0 then
      TMMemTable.Locate('TECHNIKS_ID',id,[]);
    if Assigned(MonitorScaner) then
    begin
      MonitorScaner.Ex := True;
      MonitorScaner.Terminate;
      MonitorScaner := nil;
    end;
    MonitorScaner := TMonitorScaner.Create(True,Self);
    MonitorScaner.CarsList.CommaText:=S;
    MonitorScaner.Start;
  finally
    TMMemTable.EnableControls;


  end;
end;