Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

Твой софтовый форум Программирование хранение данных в делфи?

Автор: main 27.03.2008 - 8:17

Надо написать простую программу, в ней много переменных значений (просто цифр) какой самый простой способ что бы их хранить, чтобы они тупо не пропадали когда закрываешь прогу, бд прикручивать думаю бессмысленно, поделитесь опытом как бы это сделали вы?

Автор: yah 27.03.2008 - 8:21

Самый простой - сохраняй данные в обычный текстовик или ini-файл.

Цитата | Quote

в ней много переменных значений (просто цифр)

А много - эт сколько?

Автор: elDi 27.03.2008 - 8:26

все зависит от количества и от размера (типа) переменных

Автор: main 27.03.2008 - 8:34

около 100

я тоже об этом думал, а в файле можно какие нибудь каменты вставлять, что бы не запутаться или как нибудь вообще разделить?

Добавлено:

Цитата | Quote

все зависит от количества и от размера (типа) переменных

в основном real и integer

Автор: yah 27.03.2008 - 8:36

Можно. Только зачем?

Автор: elDi 27.03.2008 - 8:38

так это разве много?

записываешь в текстовый файл в столбик через writeln, считываешь через readln и все. если нужно, можно и комменты тоже записать.

с .ini немного сложнее, на память сейчас не скажу точно...

Автор: main 27.03.2008 - 8:41

я технологию сохранения в файле знаю повернхностно поэтому с трудом представляю как указать чтобы из кучи сплошных цифр определенная переменная взяла определенное значение, а тем более сохранила потом его туда обратно, что делать если нужно работать с числом которое посередине файла?

Автор: elDi 27.03.2008 - 8:52

дело в том, то что придется и считывать все подряд до нужного числа, и перезаписывать весь файл, и если чисел немного, то можно динамически записывать
------
http://xak4ebep.boom.ru/html/untitled31.html

Добавлено:
короче, разбираемся

есть n чисел. создаем массив из n элементов. работаем с числами, попутно (во избежание несохраненных данных в случае ошибок) после каждого изменения инициализируя процедуру перезаписи в файл всего массива. при последующих запусках считываем из файла в массив, работаем. и нумерация в массиве будет, не запутаешься

Автор: main 27.03.2008 - 8:52

ясно, значит информацию придеться разом считывать и также разом записывать, спасибо

Автор: elDi 27.03.2008 - 8:54

да. чисел не так уж и много, значит, проблем не будет

Автор: Soloton 27.03.2008 - 11:59

main, так я представил решение вопроса. Если что-то не как задумано -- не обессудь. Получилось громоздко, но быстро.

Сделал пустой проект, на нём 2 кнопки. Задал события на нажатие каждой из этих кнопок, на создание формы и на её уничтожение.
При нажатии одной кнопки происходит запись, а на другую повесил считывание пременных из ini.

» исходник юнита «

Code

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses IniFiles;

const
SecName = 'Vars';

var
SL: TStringList;

procedure SetVar(Name: string; Value: string);
begin
SL.Add(Name+'='+Value);
end;

function GetVar(Name: string; Default: string): string;
var
Idx: integer;
begin
Idx := SL.IndexOfName(Name);
if Idx < 0 then begin
Result := Default;
end
else begin
Result := SL.ValueFromIndex[Idx];
end;
end;

procedure LoadVars(FileName: string);
var
IniF: TIniFile;
begin
IniF := TIniFile.Create(FileName);
try
IniF.ReadSectionValues(SecName, SL);
finally
IniF.Free;
end;
end;

procedure SaveVars(FileName: string);
var
IniF: TIniFile;
i: integer;
begin
IniF := TIniFile.Create(FileName);
try
for i := 0 to SL.Count-1 do begin
IniF.WriteString(SecName, SL.Names[i], SL.ValueFromIndex[i]);
end;
finally
IniF.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetVar('G1', '1,2');
SetVar('G2', FloatToStr(33.8));
SetVar('G3', FloatToStr(14/5));
SetVar('F1', '123');
SetVar('F2', IntToStr(456));
SetVar('F3', IntToStr(78 div 9));
SetVar('e1', 'Ïðîâåðêà');
SetVar('e2', '123312312312');
SetVar('e3', 'I am happy!');
SaveVars(ExtractFilePath(ParamStr(0))+'vars.ini');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
G1, G2, G3: real;
F1, F2, F3: integer;
e1, e2, e3: string;
begin
LoadVars(ExtractFilePath(ParamStr(0))+'vars.ini');
G1 := StrToFloat(GetVar('G1', '0'));
G2 := StrToFloat(GetVar('G2', '0'));
G3 := StrToFloat(GetVar('G3', '0'));
F1 := StrToInt(GetVar('F1', '0'));
F2 := StrToInt(GetVar('F2', '-1'));
F3 := StrToInt(GetVar('F3', '123'));
e1 := GetVar('e1', '<empty>');
e2 := GetVar('e2', 'ïóñòî');
e3 := GetVar('e3', 'íåò çíà÷åíèÿ');

ShowMessage(FloatToStr(G1));
ShowMessage(FloatToStr(G2));
ShowMessage(FloatToStr(G3));
ShowMessage(IntToStr(F1));
ShowMessage(IntToStr(F2));
ShowMessage(IntToStr(F3));
ShowMessage(e1);
ShowMessage(e2);
ShowMessage(e3);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SL := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SL.Free;
end;

end.

Исходник + exe

| У Вас нет прав для просмотра этого текста, пожалуйста, зарегистрируйтесь |

Добавлено:
Использовал Delphi7

Автор: main 12.04.2008 - 8:24

Все сдел, все получилось, спс всем за помощь. Но теперь я делаю другую программу к которой прикручена простенькая(в одну таблицу) бд, все подключил, добавил dbgrid данные видно, но мне надо чтобы одни столбцы заполнялмсь на основе друних по формуле, суммировать числа в таблице, причем чтобы брались не все строки а с определенным критерием в одном из столбцов, подскажите как это сделать, зарание спасибо.

Автор: Alixs 30.05.2008 - 1:04

Товарисч main, вижу что ты за програмирование БД взялся не давно, поэтому сразу скажу что тебе нужно определиться с понятием КУРСОР в db.grid, вот его и нужно исп-ть для считывания записи в таблице.

Вот пример сложения целой колонки, складываюся значения в поле Цена.
---
var i,s:integer;
begin
s:=0;
ADOTable1.First;
for i:=0 to ADOTable1.RecordCount-1 do
begin
s:=s+ADOTable1.FieldValues['Цена'];
ADOTable1.Next;
end;
ShowMessage('Цена = '+inttostr(s));
end;
---
здесь ADOTable1.FieldValues['Цена'] является КУРСОР'ом,
а как сделать сложение разных колонок подумай сам.