Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Вниз

Ini файл   Найти похожие ветки 

← →
Volkov   (2006-04-06 16:43) [0]

Здравствуйте...

Дано:
Есть 12 Edit,ов мне нужно, чтоб прога запоминала весь текст и при следующем включении программы выводила сохраненный в ini текст.

Плиз, разъясните как сие осуществить???

---

← →
Джо ©   (2006-04-06 16:45) [1]

> Плиз, разъясните как сие осуществить???

uses IniFiles;

var
 Ini: TIniFile;
...
 Ini.WriteString
 ...
 Ini.ReadString

---

← →
Volkov   (2006-04-06 16:50) [2]

> Джо ©   (06.04.06 16:45) [1]


а как это привязать к Edit" ам ??????  и чтобы был один ini файл

---

← →
Volkov   (2006-04-06 16:51) [3]

Прошу прощения за столь "идиотские вопросы", просто не сталкивался с этим =)))

---

← →
Джо ©   (2006-04-06 16:54) [4]

> [2] Volkov   (06.04.06 16:50)
> а как это привязать к Edit" ам ??????  и чтобы был один
> ini файл

ReadString/WriteString читают/пишут строки в указанную секцию и указанный ключь. Свойтсво Text у EEdit имеет тип "строка". Дальше понятно? Совет: в Делфи имеется контекстная справка.

---

← →
Джо ©   (2006-04-06 16:55) [5]

> ключь


Вот этого я от себя не ожидал :(

---

← →
Джо ©   (2006-04-06 17:00) [6]

procedure SaveEdits (AFileName,ASection: string; Edits: array of TEdit);
var
 I: Integer;
 Ini: TIniFile;
begin
 Ini := TIniFile.Create(AFileName);
 try
   for I := 0 to High(Edits) do
     Ini.WriteString(ASection,Edits[I].Name,Edits[I].Text);
 finally
   Ini.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SaveEdits(
   ExtractFilePath(Application.ExeName) + "settings.ini",
   "Edits",
   [Edit1,Edit2,Edit3]
 );
end;


1. Загрузка — домашнее задание ;)

2. В качестве подсказки для упрощения кода: у формы есть свойства Components и ComponentCount.

---

← →
Volkov   (2006-04-06 17:07) [7]

> Джо ©   (06.04.06 17:00) [6]


Псиба бааааааашое!  =))))

---

← →
Handle   (2006-04-06 17:22) [8]

Или так
Ну то же самое короче

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 F: TIniFile;
 names: TStringList;
 i: integer;
begin
 F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + "window.ini");
 Edit1.Text := F.ReadString("tools", "edit1", "I fuck her very nice");
 names := TStringList.Create;
 F.ReadSection("files", names);
 F.Destroy;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
 F: TIniFile;
 i: integer;
begin
 F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + "window.ini");
 F.WriteString("tools", "edit1", Edit1.Text);
 F.Free;
end;
end.

---

← →
Джо ©   (2006-04-06 17:32) [9]

> [8] Handle   (06.04.06 17:22)
> Ну то же самое короче

Пардон, но это совсем не "то же самое".

---

← →
Handle   (2006-04-06 17:49) [10]

> Джо ©   (06.04.06 17:32) [9]
Пардон, но это совсем не "то же самое".

Согласен.
Поторопился.

---

← →
Jeer ©   (2006-04-06 18:07) [11]

> Согласен.
> Поторопился.

Как и с этим, вероятно:

> "I fuck her very nice"

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.012 c