Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.011 c
1-31355
Anonimus
2003-06-27 15:42
2003.07.10
TBitmap в array of Byte


7-31544
xman
2003-04-28 21:08
2003.07.10
PCSpeaker


6-31377
LOX
2003-05-04 08:42
2003.07.10
У IE есть журнал а как это замутить в TWebBrowser?


1-31295
Smirnoff
2003-06-26 15:22
2003.07.10
Найти и заменить


9-31067
Shadow
2003-01-25 12:34
2003.07.10
2 вопроса по DelphiX





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