[bsambo2013]

Привет всем,помогите с кодом:все сделано у меня осталось только результат сохранить:нужно чтобы при нажатии кнопки сохранить в текстовом докумнте "res.txt" Сохранялся результат который воводится на Dbgrid2(datasoruce2)

[lmikle]

Ну, например, так:

Код:

procedure TForm1.btSaveClick(Sender : TObject);
const
  cFileName = 'c:\search_result.txt'; // Что бы не замусоривать код диалогом.
var
  AList : TStringList;
  I : Integer;
begin
  ADOQuery2.First;
  If ADOQuery2.EOF Then
    Raise Exception.Create('Результат поиска пустой.');
  AList := TStringList.Create;
  Try
    While Not ADOQuery2.EOF Do
      Begin
        For I := 0 To ADOQuery2.Fields.Count-1 Do
          AList.Add(ADOQuery2.Fields[i].FieldName + ' : ' + ADOQuery2.Fields[i].AsString);
        AList.Add('');
        ADOQuery2.Next;
      End;
    AList.SaveToFile(cFileName);
  Finally
    AList.Free;
  End;
end;

[bsambo2013]

БЛИН ДАЖЕ НЕ ЗНАЮ СПАСИБО что бы я делал без тебя,НА тебя молится буду D ,Спасибо Огромное

[Страдалецъ]

Поправь - "Списпок спортсменов" это как-то не айс.