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

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

поместить в Edit1 то, что стоит после

Fisper ©   (2002-08-04 17:25:00) 

т.е. по клике на кнопку, нужна из файла test.xxx, ИЗ 7 строки, поместить в Edit1 всё то, что находится в ней после знака "=".
INI-файлы не предлагать.

---

Jeer   (2002-08-04 18:24:00) [1]

Да.. Если б он еще исам к этому пришел - справочником не трудно быть.

---

Song   (2002-08-04 17:54:00) [2]

Pos("=",Strings[6]) замени на Pos("=",Strings[6])+1

---

Song   (2002-08-04 17:53:00) [3]


Procedure TForm1.Button1Click(Sender:TObject);
Begin
With TStringList.Create Do
try
LoadFromFile("test.xxx");
Edit1.Text:=Copy(Strings[6],Pos("=",Strings[6]),Length(Strings[6]));
finally
Free;
end;
End;


---

Anatoly Podgoretsky   (2002-08-04 17:50:00) [4]

Если INI не подходят, то используй .txt файлы

---

Fisper   (2002-08-04 17:37:00) [5]

А можно код, если не жалко? :-)

---

Jeer   (2002-08-04 17:34:00) [6]

А зря..
Если бы рассмотрел как работают с ини файлами, то и вопрос вероятно отпал бы.
А так:
Открывай файл как текстовый
Читай нужную строчку
Находи pos(..)символ =
Копируй copy() в Edit1.Text все, что после найденной позиции

---

Наверх