|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.09.2007, 20:50 | #1 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
программа которая сохраняет текст StringGrid без диалогов
Мне нужна программа на каторяя сохраняет текст StringGrid1 без диалагав, проста нажав кнопку сберечь и также открыть тотже текст. Заранее спасибо
|
19.09.2007, 09:28 | #2 |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Вот тебе пример, как из одного stringGrid скопировать значения в другой StringGrid..... При помощи файла.... Тоесть значения сохраняются в фаил, а потом считываются оттуда....
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Button1: TButton; StringGrid2: TStringGrid; procedure BitBtn1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f1: TStrings; implementation {$R *.dfm} //заполнение первого stringGrid procedure TForm1.BitBtn1Click(Sender: TObject); var i,j,k:integer; begin //я его заполняю по возрастанию k:=0; for i:=1 to 5 do for j:=1 to 5 do begin StringGrid1.Cells[i,j]:=intToStr(k); inc(k); end; end; //кнопка сохранения значений в фаил procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; begin f1:=TStringList.create();//cоздаю переменную for i:=1 to 5 do for j:=1 to 5 do f1.add(StringGrid1.Cells[i,j]);//добавляю значения из StringGrid f1.SaveToFile('c:\1.txt');// сохраняю в фаил f1.free;//освобождаю фаил end; //Кнопка выгрузки значений из файла в stringGrid2 procedure TForm1.BitBtn2Click(Sender: TObject); var i,j,ii:integer; begin f1:=TStringList.create(); f1.LoadFromFile('c:\1.txt'); ii:=0; for i:=1 to 5 do for j:=1 to 5 do begin StringGrid2.Cells[i,j]:=f1.Strings[ii]; inc(ii);//инкремирование счетчика end; end; end.
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Последний раз редактировалось Pitbull; 19.09.2007 в 09:30. |
19.09.2007, 18:49 | #3 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
Очень большое спасибо.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа которая делает кроссворд | Иллидан | Софт | 15 | 02.12.2014 06:34 |
программа, которая сохраняет веб страницы раз в час на сайте в определённой папке | SeregaKo | Общие вопросы Delphi | 7 | 24.07.2008 16:10 |
com-программа, которая блокирует клавиатуру | Белка | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 26.11.2007 14:37 |
программа, которая выводит на экран одно из данных слов | vados | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 26.10.2007 23:47 |