Скачать: CL | DM;

Работа с текстовым файлом   Найти похожие ветки 

← →
Zlodey ©   (2006-10-11 11:20) [0]

Приветсвую всех. У меня такая проблема: существует текстовый фаил допустим text.txt содержимое разбито по блокам в следующем виде
[blok1]
name=vasya
let=18
gorod=xabarovsk
[blok2]
name=kolya
let=19
gorod=moskva
так вот мне надо чтоб в edit вводили номер блока и на форму выводились данные
имя=вася
город=хабаровск и т.д напишите пожалуйста подробнее

---

← →
Desdechado ©   (2006-10-11 11:25) [1]

TIniFile

---

← →
Megabyte ©   (2006-10-11 11:28) [2]

Используй [1], далее по событию онклик твоей кнопки читай из файла данные(формат данных TIniFile : объект = значение).

---

← →
Zlodey ©   (2006-10-11 11:30) [3]

А как найти именно нужную мне строку с именем блока

---

← →
Плохиш ©   (2006-10-11 11:40) [4]

> Zlodey ©   (11.10.06 11:30) [3]
> А как найти именно нужную мне строку с именем блока

TIniFile за тебя всё найдёт.

---

← →
ЮЮ ©   (2006-10-11 11:51) [5]

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ComboBox1: TComboBox;
   Memo1: TMemo;
   procedure FormCreate(Sender: TObject);
   procedure ComboBox1Click(Sender: TObject);
 private
   { Private declarations }
   FIni: TMemIniFile;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 s: TStringList;
begin
 s := TStringList.Create;
 FIni := TMemIniFile.Create("my.ini");
 try
   s.LoadFromFile(ExtractFilePath(ParamStr(0)) + Fini.FileName);
   FIni.SetStrings(s);
   FIni.ReadSections(ComboBox1.Items);
   ComboBox1.ItemIndex := 0;
 finally
   s.Free;
 end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 FIni.ReadSectionValues(ComboBox1.Items[ComboBox1.ItemIndex], Memo1.Lines);
end;

end.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c