Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
14-48303
Пастор
2002-07-22 12:24
2002.08.15
Кто нибудь учился в ХАИ ?


4-48359
Volj
2002-06-05 14:38
2002.08.15
Как мне получить процент свободных ресурсов в Win98?


7-48331
Mex
2002-05-30 18:08
2002.08.15
На Delphi PID процесса в WIn 2000


3-48003
BAY
2002-07-27 21:20
2002.08.15
Настройка IBTransaction


3-47921
SergSerg
2002-07-25 10:10
2002.08.15
dbgrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский