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

Вниз

Строковые переменные...   Найти похожие ветки 

 
Onward   (2003-06-23 00:10) [0]

Допустим:

var iVal, oVal: string;
begin
iVal:="Sample: Hi world!"; //
oVal:=??? // Как мне получить в эту переменную
// "Hi world!" из переменной iVal?

Короче получить значение после указания
предыдущего значения...???
end; Извеняюсь за тупой вопрос... Заранее спасибо...


 
Song   (2003-06-23 00:12) [1]

Pos()+Copy()


 
Palladin   (2003-06-23 00:12) [2]

Help\Index\String routines

в данном случае два способа
тупой Copy
гибкий Pos+Copy


 
jack128   (2003-06-23 00:13) [3]

Да ребят, это даже не орешник...


 
Palladin   (2003-06-23 00:15) [4]

Это еще только теплица с рассадой :)


 
Onward   (2003-06-23 00:16) [5]

Конечно спасибо но это я знаю.... Наверное я неправильно сформулировал вопрос...:(


 
Palladin   (2003-06-23 00:18) [6]

Интересно, как же можно еще по другому его интерпретировать?


 
jack128   (2003-06-23 00:18) [7]


> Конечно спасибо но это я знаю....

Скажу чесно : ты меня очень обрадовал!!

> Наверное я неправильно сформулировал вопрос...:(

Так формулируй


 
Onward   (2003-06-23 00:27) [8]

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


 
jack128   (2003-06-23 00:31) [9]


> Onward © (23.06.03 00:27

а вроде нечего такого не сказал, а уже лаймером обзывают :-((

Если можно, конкретно, какая фраза вызвала такую бурю эмоций???


 
Onward   (2003-06-23 00:37) [10]

Забей...

Лучше (ПОЖАЛУЙСТА) дай мне пример...
В текстовом документе есть слово (Ключ) "Sample:" мне нужно считать данный файл, найти это слово, и записать в переменную "oVal" содержимое после этой строки до первого пробела...Ферштейн?*


Плииииииииииииииззззз помоги..... :)


 
jack128   (2003-06-23 00:44) [11]

Ферштейн.
var
sl : TstringList;
iPos : integer;
s : string;
begin
sl : TstringList.Create;
sl.LoadFromFile(filename);
s := sl.Text;
sl.Free;
iPos := pos("Sample",s);
s := copy(s,iPos + Length("Sample"),Length(s));
iPos := pos(" ",s);
s := copy(s,1,iPos); //s - это результат
end;


 
Onward   (2003-06-23 00:47) [12]

Наконец то я с тебя что то вытянул...:)))
Большое прибольшое СПАСИБО! Я тебе очень благодарен...:)))


 
Palladin   (2003-06-23 00:47) [13]

угу, знать знаем, применить не можем, такое в природе часто встречается, этим обычно женский пол страдает...
сразу уточню! Не весь!! :)


 
Onward   (2003-06-23 01:15) [14]

Да! Все работает!!! Но есть одна проблема!

p:=pos(" ", s); - Это определяет только пробел...А если это конец строки или переход на новую строку... В таком случае результат не добевается успеха! Как тут быть?


 
Германн   (2003-06-23 03:06) [15]

Нуу, тогда надо "добеться" успеха. Т.е. (как говаривал наш препод по начальной военной подготовке) сначала поставить задачу, затем осознать позицию противника, и наконец отдать команду "громко и четко"!
А за готовый код надо бы, хотя бы, поблагодарить jack128 ©!
Если уж сам не умеешь ничего.



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
1-31224
Lamos aka 31337
2003-06-28 08:38
2003.07.10
Возникла проблем(-ка) с компонентой PopupMenu


14-31468
euru
2003-06-20 12:03
2003.07.10
Шаблоны и ООП


14-31434
HermitAlex
2003-06-20 21:11
2003.07.10
Как реализовать автоматическое обновление клиентов?


1-31348
Vint_XXX
2003-06-27 10:29
2003.07.10
ListView


14-31422
Кен
2003-06-25 04:33
2003.07.10
А можно ли перевести php или perl-скрипты в формат dll и вызывать





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский