Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Вниз
Строки! Найти похожие ветки
← →
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]паладин а слабо на инглиш
← →
Palladin (2003-02-10 00:00) [11]а слабо самому?
← →
SniZ (2003-02-10 00:13) [12]да
← →
Palladin (2003-02-10 00:23) [13]вот это точно в орешник надо
← →
ALex44 (2003-02-10 00:34) [14]Nekorectnyj vopros. Kotoruyu stroku? Esli pervuyu, to TStringList.Values("rab:"). Esli ne pervuyu, to kakuyu?
← →
SniZ (2003-02-10 18:49) [15]чё сложно?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c
