[bsambo2013]

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

[lmikle]

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

Код:

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

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 ,Спасибо Огромное

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

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