Текущий архив: 2006.10.29;
Скачать: 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 вся ветка
Текущий архив: 2006.10.29;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.083 c
