|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывод данных из StringGrid в текстовый документ - Delphi
Подскажите пожалуйста,имеется StringGrid состоящий из двух строк и 22 столбиков, как сделать так,чтобы данные из StringGrid выводились в текстовый файл в корректной форме,то есть значение x сверху,а под ним значение y.
P.S.все найденные в интернете варианты решения данной проблемы выводят все значения в один столбик,либо с использованием Мемо,но там все сбивается и значения выводятся не друг под другом |
#2
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); function st(ds: string): string; begin Result:= ds; while Length(Result) < 4 {exp. '123 '} do Result:= Result + ' '; end; var i: integer; sx, sy: string; begin for i := 0 to 21 do begin sx:= sx + st(StringGrid1.Cells[i,0]); sy:= sy + st(StringGrid1.Cells[i,1]); end; with TStringList.Create do try Add(sx); Add(sy); SaveToFile('tmp.txt'); finally Free; end; end; Помогаю платно. Помогаю иногда бесплатно. |