Строки!

← →
SniZ © (2003-02-08 16:44) [0]

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

fio:=Иван Иванович
rab:=сантехник
web:=www.ivan.ru
email:=ivan@ivan.ru
opisrab:=чинит трубы

fio:=Алексей
rab:=плотник
web:=www.alex.ru
email:=alex@alex.ru
opisrab:=делает мебель

Нужно чтобы программа искала строку rab и выдовала допустим в поле ТЕдит1.Текст всё что написано после знака :=
Помогите ПЛИЗ , ответы шлите на sniz@tut.by
ВНИМАНИЕ! это на таблица это просто текстовый файл!

← →
Hip Hop Music (2003-02-08 18:35) [1]

TIniFile: ReadString(), WriteString(), одним словом, F1

← →
@Ujin © (2003-02-08 18:38) [2]

Если коротко, то:
with TINIFile.Create("File path") do
Edit1.Text := ReadString("Section name", "rab", "Не найден");
end;

← →
Романов Р.В. © (2003-02-08 18:40) [3]

Что то мне подсказывает что это не Ini файл. Если это так, то
AssignFile
Reset
Read
Pos
Copy
CloseFile

← →
SniZ © (2003-02-09 20:48) [4]

Спасибо всем!!!!!!!!!

← →
SniZ © (2003-02-09 20:52) [5]

и вот ещё что @Ujin объясни что за Section name и Не найден (это тоесть что будет выводить прога если не найдено?)

← →
SniZ © (2003-02-09 21:48) [6]

ОДИГА : 6541517
Романов Р.В. к стати ты прав мне нужно ТСтрингЛист

← →
Palladin © (2003-02-09 22:33) [7]

как хорошо сказано... ТСтрингЛист...
только ради прикола, функция вытаскивания из ТСтрингЛист необходимого тебе значения по имени...

функтион СпециалГетВалюэ(п_Соурсе:ТСтрингЛист;п_Нэйм:Стринг):Стринг; вар и:интеджер; бэгин фор и:=0 ту п_Соурсе.Каунт-1 ду иф Копи(п_Соурсе[и],1,Ленгтх(п_Нэйм)+2)=п_Нэйм+":=" тхен бэгин резулт:=Копи(п_Соурсе[и],Поз(п_Соурсе[и])+2,Ленгтх(п_Соурсе[и])); Эксит; энд; резалт:=""; энд;

← →
Анонимный невротик (2003-02-09 23:10) [8]

2 Palladin:
Супер!!!!!
Даёшь русскую Дельфю!

← →
Palladin © (2003-02-09 23:32) [9]

сорри
недоглядел

исправленая восьмая строка:
резулт:=Копи(п_Соурсе[и],Поз(":=",п_Соурсе[и])+2,Ленгтх(п_Соурсе[и]));

исправленая одиннадцатая строка
резулт:="";

трудно знаетели на русском программы писать :))

← →
SniZ © (2003-02-09 23:57) [10]

паладин а слабо на инглиш

а слабо самому?

да

вот это точно в орешник надо

← →
ALex44 (2003-02-10 00:34) [14]

Nekorectnyj vopros. Kotoruyu stroku? Esli pervuyu, to TStringList.Values("rab:"). Esli ne pervuyu, to kakuyu?

чё сложно?

Строки! Найти похожие ветки