Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Строки! [D7, Win95/98, WinME, NT4, Win2k, WinXP]

SniZ © (2003-02-08 16:44:00)
Как сделать так, чтобы прога искала строку с названием?
Короче имеется ини файл с таким текстом:

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
ВНИМАНИЕ! это на таблица это просто текстовый файл!

SniZ (2003-02-10 18:49:00) [1]
чё сложно?

ALex44 (2003-02-10 00:34:00) [2]
Nekorectnyj vopros. Kotoruyu stroku? Esli pervuyu, to TStringList.Values("rab:"). Esli ne pervuyu, to kakuyu?

Palladin (2003-02-10 00:23:00) [3]
вот это точно в орешник надо

SniZ (2003-02-10 00:13:00) [4]
да

Palladin (2003-02-10 00:00:00) [5]
а слабо самому?

SniZ (2003-02-09 23:57:00) [6]
паладин а слабо на инглиш

Palladin (2003-02-09 23:32:00) [7]
сорри
недоглядел

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

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

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

Анонимный невротик (2003-02-09 23:10:00) [8]
2 Palladin:
Супер!!!!!
Даёшь русскую Дельфю!

Palladin (2003-02-09 22:33:00) [9]
как хорошо сказано... ТСтрингЛист...
только ради прикола, функция вытаскивания из ТСтрингЛист необходимого тебе значения по имени...

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

SniZ (2003-02-09 21:48:00) [10]
ОДИГА : 6541517
Романов Р.В. к стати ты прав мне нужно ТСтрингЛист

SniZ (2003-02-09 20:52:00) [11]
и вот ещё что @Ujin объясни что за Section name и Не найден (это тоесть что будет выводить прога если не найдено?)

SniZ (2003-02-09 20:48:00) [12]
Спасибо всем!!!!!!!!!

Романов Р.В. (2003-02-08 18:40:00) [13]
Что то мне подсказывает что это не Ini файл. Если это так, то
AssignFile
Reset
Read
Pos
Copy
CloseFile

@Ujin (2003-02-08 18:38:00) [14]
Если коротко, то:
with TINIFile.Create("File path") do
Edit1.Text := ReadString("Section name", "rab", "Не найден");
end;

Hip Hop Music (2003-02-08 18:35:00) [15]
TIniFile: ReadString(), WriteString(), одним словом, F1

Наверх

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