Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2007, 20:50   #1
KSP
Пользователь
 
Регистрация: 18.09.2007
Сообщений: 11
По умолчанию программа которая сохраняет текст StringGrid без диалогов

Мне нужна программа на каторяя сохраняет текст StringGrid1 без диалагав, проста нажав кнопку сберечь и также открыть тотже текст. Заранее спасибо
KSP вне форума Ответить с цитированием
Старый 19.09.2007, 09:28   #2
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 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.
Pitbull вне форума Ответить с цитированием
Старый 19.09.2007, 18:49   #3
KSP
Пользователь
 
Регистрация: 18.09.2007
Сообщений: 11
По умолчанию

Очень большое спасибо.
KSP вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа которая делает кроссворд Иллидан Софт 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