Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

поместить в Edit1 то, что стоит после   Найти похожие ветки 

 
Fisper   (2002-08-04 17:25) [0]

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


 
Jeer ©   (2002-08-04 17:34) [1]

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


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

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


 
Anatoly Podgoretsky ©   (2002-08-04 17:50) [3]

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


 
Song ©   (2002-08-04 17:53) [4]


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;


 
Song ©   (2002-08-04 17:54) [5]

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


 
Jeer ©   (2002-08-04 18:24) [6]

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



Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.009 c
14-48310
Igorek
2002-07-22 14:51
2002.08.15
Срочно нужно полное описание синтаксиса ObjectPascal !


7-48349
Алексей Коваленко
2002-05-31 10:16
2002.08.15
Непрерывная печать на принтер


14-48298
Alibaba
2002-07-19 12:50
2002.08.15
Есть вакансия программиста (г Киев)


14-48256
Виктор
2002-07-18 16:56
2002.08.15
Как в runtime добавить Calc Field в TTable?


6-48225
Adventure
2002-05-31 13:40
2002.08.15
***** Нужна идея ***** (Посещение