Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];
Внизпоместить в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c