| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с текстовым файлом

Zlodey ©   (2006-10-11 11:20:00) 

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

---

ЮЮ   (2006-10-11 11:51:00) [1]

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.

---

Плохиш   (2006-10-11 11:40:00) [2]

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

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

---

Zlodey   (2006-10-11 11:30:00) [3]

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

---

Megabyte   (2006-10-11 11:28:00) [4]

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

---

Desdechado   (2006-10-11 11:25:00) [5]

TIniFile

---

Наверх