Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
ВнизМаша сильно болеет туберкулезом. Найти похожие ветки
← →
Антон К. (2002-09-19 20:02) [0]Вопрос такой.
Есть к примеру строка: Маша сильно болеет туберкулезом.
Нужно из этой строки вытащить все слова и вставить их в listbox этаким списком. Т.е в listbox выглядеть это должно так:
Маша
сильно
болеет
туберкулезом.
Как такое сделать, а? И очень желателен исходник!
Еще вопрос. Почему pos(), реагирует на Регистр и возможно ли это как то изменить. К примеру код
i:=pos("маша","Маша сильно болеет туберкулезом.") не найдет ничего, т.е i будет равно 0, а вот
i:=pos("Маша","Маша сильно болеет туберкулезом.") укажит цифру 1, т.е в принципе найдет искомое слово Маша. Видимо это функция запрограмированна на учет регистра, тогда как же узнать, что определенное слово есть в строке без учета регистра? Какая есть альтернатива Pos?
← →
MBo (2002-09-19 20:12) [1]Переводи обе строки в один регистр, например, AnsiUpperCase, и тогда ищи.
А разделить на слова в твоем случае (разделение по пробелам и запятым)
ListBox1.Items.Commatext:=твоя строка
← →
Антон К. (2002-09-19 20:41) [2]Спасибо! Разобрался!
← →
Кот Бегемот (2002-09-19 20:54) [3]А менее безобидную фразу нельзя было придумать ?
Например
"Маша любит заниматься любовью с Антоном"
← →
Антон К. (2002-09-19 21:01) [4]Кто же будет заниматься любовью с больной туберкулезом?
← →
X-Vizitor (2002-09-19 23:24) [5];p
← →
vidiv (2002-09-20 08:06) [6]1:
str:="Маша сильно болеет туберкулезом.";
while pos(" "{<<2 пробела},str)<>0 do delete(str,pos(" ",str),1); // Удаляем лишние пробелы.
while pos(" "{<<1 пробел},str)<>0 do
begin
ListBox1.Items.Add(copy(str,1,pos(" ",str)-1));
Delete(Str,1,Pos(" ",str));
end;
//////////Вроде все!!!
2:
На счет регистра:
Function NRPos(SubStr,Str:String):Integer;
Begin
Result:=Pos(UpperCase(SubStr),UpperCase(Str));
End;
Все теперь только вместо Pos используй NRPos и все будет без учета регистра!!!
← →
Esu (2002-09-20 09:00) [7]Сегодня уже давали ссылку про КА, как раз такой пример рассмотрен, а ListBox1.Items.Commatext лучше пока не использовать IMHO.
http://www.kalinin.ru/programming/alg/21_08_00.shtml
← →
Рыжик (2002-09-20 09:21) [8]А TStrings сам умеет разделять строку на слова:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Delimiter:=" ";
ListBox1.Items.DelimitedText:="Антон не хочет заниматься люьовью с больной туберкулёзом Машей";
end;
Всё просто :)
← →
Zemal (2002-09-20 10:32) [9]Рыжик >> Ты единственный, кто без гемора объяснил и профессионально, с использованием всей мощи накопленного программистами опыта :). Молодец! Остальные программисты не объектные, а процедурные. Поясню: если надо будет перевести строки символов из кодировки 866 в 1251, то ты наверняка найдёшь нужную функцию (CharToOEM, OEMToChar) уже давно написанную и проверенную, а остальные будут изобретать велосипед (искать коды символов и делать глупую работу по сдвигу номера символа, если он попадает в какой-то диапозон). С таким я уже не раз сталкиваюсь :). Программистом надо быть в первую очередь образом мышления, но некоторые только создают видимость программистов. Рыжик, ты программист по образу мышления! :) Молодец! Учитесь все использовать классы и методы Делфи у Рыжика! :) Всё-таки Делфи объектно ориентированная среда разработки, так что перестраивайтесь на новый лад процедурные программисты!!! И нечего велосипеды изобретать и изощряться в том, кто умнее глупость придумает! :)
← →
RedWood (2002-09-20 10:53) [10]Ура! Ура! Ура!
Наконецто появился хоть кто-то,
кто смог оценить Рыжика по его, несомненно, великим заслугам :))
Слава! Слава! Слава!
← →
Zemal (2002-09-20 10:57) [11]Рыжик >> Ты единственный, кто без гемора объяснил и профессионально, с использованием всей мощи накопленного программистами опыта :). Молодец! Остальные программисты не объектные, а процедурные. Поясню: если надо будет перевести строки символов из кодировки 866 в 1251, то ты наверняка найдёшь нужную функцию (CharToOEM, OEMToChar) уже давно написанную и проверенную, а остальные будут изобретать велосипед (искать коды символов и делать глупую работу по сдвигу номера символа, если он попадает в какой-то диапозон). С таким я уже не раз сталкиваюсь :). Программистом надо быть в первую очередь образом мышления, но некоторые только создают видимость программистов. Рыжик, ты программист по образу мышления! :) Молодец! Учитесь все использовать классы и методы Делфи у Рыжика! :) Всё-таки Делфи объектно ориентированная среда разработки, так что перестраивайтесь на новый лад процедурные программисты!!! И нечего велосипеды изобретать и изощряться в том, кто умнее глупость придумает! :)
← →
Alx2 (2002-09-20 11:27) [12]>Zemal © (20.09.02 10:57)
>И нечего велосипеды изобретать и изощряться в том, кто умнее
>глупость придумает!
Извини, пожалуйста. Я постараюсь больше не придумывать глупостей. Я даже представить не могу насколько тебе, большому и умному, трудно сдреживаться при чтении некоторых веток форума. Но, чтобы тебе было не так противно, я попытаюсь достичь твоего уровня профессионализма и запомнить, что Delphi - "объектно ориентированная среда разработки". А пока... мы же только пока учимся, Zemal. Потерпи, пожалуйста.
← →
Anatoly Podgoretsky (2002-09-20 11:30) [13]Zemal © (20.09.02 10:57)
OEMToChar не для преобразования 866 в 1251, а для преобразования OEM to ANSI
← →
RV (2002-09-20 11:38) [14]Zemal
Рыжик, действительно, молодец
но это, к счастью, ОНА :)
← →
Zemal (2002-09-20 11:55) [15]Рыжик >> Ты единственный, кто без гемора объяснил и профессионально, с использованием всей мощи накопленного программистами опыта :). Молодец! Остальные программисты не объектные, а процедурные. Поясню: если надо будет перевести строки символов из кодировки 866 в 1251, то ты наверняка найдёшь нужную функцию (CharToOEM, OEMToChar) уже давно написанную и проверенную, а остальные будут изобретать велосипед (искать коды символов и делать глупую работу по сдвигу номера символа, если он попадает в какой-то диапозон). С таким я уже не раз сталкиваюсь :). Программистом надо быть в первую очередь образом мышления, но некоторые только создают видимость программистов. Рыжик, ты программист по образу мышления! :) Молодец! Учитесь все использовать классы и методы Делфи у Рыжика! :) Всё-таки Делфи объектно ориентированная среда разработки, так что перестраивайтесь на новый лад процедурные программисты!!! И нечего велосипеды изобретать и изощряться в том, кто умнее глупость придумает! :)
← →
RV (2002-09-20 12:00) [16]Zemal © (20.09.02 11:55
Баден-Баден?
← →
Anatoly Podgoretsky (2002-09-20 12:01) [17]Спаммер какой то :-)
← →
Кот Бегемот (2002-09-20 12:06) [18]Удалено модератором
← →
Zemal (2002-09-20 12:06) [19]Извините за повторы месаги, у нас прокся глючит видимо :(.
Anatoly Podgoretsky >>
Ты прав, действительно я не правильно сократил. Исправляюсь:
OEMToChar конвертирует номера символов в строке из таблицы OEM в ANSI. Запутался немного с кодировками, да и просто неправильно выразился :).
← →
Anatoly Podgoretsky (2002-09-20 12:10) [20]Во теперь правильно, а то я много встречал таких, которые искренне считали что 866-1251 и потом удилялись почему программа не работает на других компьютерах.
← →
Zemal (2002-09-20 12:24) [21]Кот Бегемот >>
Ладно, не дуйся. Я просто зол был с утра. Приходится разбираться в исходниках другого программиста, который тут до меня наворочал... мля... этот придурок строку символов конвертил из OEM в ANSI... написал процедуру на лист А4. Да и другие фишки от которых слёзы на глаза наворачиваются. Кстати, закончил ВУЗ по программированию. Смотрю иногда в форумы и такой же геморой вижу в основном. Кстати, класс TStringList и его методы прекрасно описаны чуть ли не в каждой второй книге по Делфи, просто некоторым лень читать и они лезут в форумы и несут всякую чушь, но чушь грамотную с точки зрения Паскаля (процедурного программирования). Так вот... иногда хочется сказать людям: ЧИТАЙТЕ КНИГИ И ХЭЛПЫ ВАШУ МАТЬ!!! ПРЕЖДЕ ЧЕМ ЧТО-ТО ДЕЛАТЬ - ПОДУМАЙ, НЕ СДЕЛАНО ЛИ ЭТО ДО ТЕБЯ, А ЕСЛИ СДЕЛАНО, ТО ЗАЧЕМ ТРАТИТЬ СИЛЫ САМОМУ И НАПРАВЛЯТЬ ДРУГИХ ПО ЛОЖНОМУ ПУТИ???!!!
Вот-с... Спасибо большое Рыжику, за то что она в пример другим, читает много, а не изобретает велосипеды, самокаты и т.д. :)
← →
Alx2 (2002-09-20 12:31) [22]>ЧИТАЙТЕ КНИГИ И ХЭЛПЫ ВАШУ МАТЬ!!!
Ты не в одиночестве. В разделе "потрепаться" довольно регулярно всплывают такие темы. Так что кричать уже пробовали. Результат виден.
← →
Vdovin-AV@yandex.ru (2002-09-20 12:39) [23]Рыжик твой пример хорош, но ты забыл
указать версию Delphi в котором он будет работать...
Эти Property и метод появились только в Delphi 6.
Выложу в кладовку модуль strTools.pas в нем
см. функции Token и NumToken.
← →
Кот Бегемот (2002-09-20 12:39) [24]Урааа :)
Меня первый раз удалилиии :)))
Zemal © (20.09.02 12:24)
Так ты модер ???
Да я и не дуюсь :) - даже наоборот
А еще бывает такое, что ПРИ НЕХВАТКЕ БАЗОВЫХ ЗНАНИЙ проще придумать свое чем тратить время на поиски
Классический присмер TStringList
← →
Zemal (2002-09-20 13:17) [25]Vdovin-AV@yandex.ru >> Ты не прав! В Делфи 5 уже были все методы класса TStringList реализованы! И все работали в 5 делфе! Вот-с...
Кот Бегемот >> Классический пример с классом TStringList... так это самые азы!!! Если уж азы забыть, т.е. базовые знания, то лучше больше за Делфи и не браться... Такие вещи каждый начинающий программист должен знать на зубок. Можно забыть что-то из RX или другие сторонние разработки, но ведь TStringList это СТАНДАРТ!!! А потраченное время на поиски возвращается сторицей, один раз нашол и запомнил надолго. Всё что ты нашол - откладывается у тебя в голове и библиотеке твоих исходников. А если тебе проще придумать, чем найти верное решение, то ты остановился в развитии, ибо ничего уже не ищешь и следовательно ничему новому, в принципе, не научишься. Вот так можно остановиться в развитии, как в общем-то многие и сделали. А остановиться в развитии - значит отстать от новых технологий... ладно, не буду дальше продолжать и так всё понятно.
Мысль программиста не должна быть узкой и оперировать только известными методами, она должна предпологать, искать, подниматься на самые высокие уровни и опускаться до самых низов, с лёгкостью оперировать не до конца известными параметрами, или вообще совершенно неизвестными, искать ниточки за которые можно уцепиться и раскрутить весь клубок, абстрагироваться от сложного к простому и наоборот... и главное - не пугаться неизвестного и не бежать от него в панике, уметь двигаться к цели правильным а не самым лёгким путём... только тогда программист достигает мастерства, а не ползает по своей делянке, которую знает как свои пять пальцев.
Вот моё мнение о том, какое мышление должно быть у программиста для достижения успеха в наше нелёгкое время, наполненное океаном новых технологий, один вид которых некоторых пугает, а некоторых только подстёгивает. Вы можете высказаться против здесь, в форуме, но в глубине души будете понимать, что я прав. Удачи всем.
← →
Vdovin-AV@yandex.ru (2002-09-20 13:35) [26]Незнаю, незнаю...
TStrings.Delimiter и TStrings.DelimitedText в Delphi 5
не существует.
Classes.pas выслать ?
Запусти Delphi 5 и да поможет тебе F1. А уже потом можно философствовать.......
← →
pasha_golub (2002-09-20 13:37) [27]
> Zemal
Не НАШОЛ! А НАШЕЛ! Базовые знания языка тоже нужно знать!!!
← →
AndreyAdm (2002-09-20 13:37) [28]пиши на мыло. есть исходник, работает на "ура".
Разбтвает строку на слова и обратно
← →
Андрей Прокофьев (2002-09-20 13:39) [29]2 pasha_golub © (20.09.02 13:37)
>> Базовые знания языка тоже нужно знать!!!
:)))
← →
Behemoth (2002-09-20 13:47) [30]to Zemal: да ты философ?!!!
← →
Zemal (2002-09-20 14:10) [31]Ну правописание у меня храмает :(. Признаюсь. Но не надо путать зелёное с кислым, эти понятия находятся в разных плоскостях. А с правописанием у меня со школы... привили, понимаете ли ненависть к Рус.яз и Лит-ре...
На счёт Делфи 5 и TStringList могу сказать только одно - я делал и у меня работало. Кстати, может проблема в том, что ты сервпаки не установил для 5 Делфи. Утверждать не буду, но похоже в сервпаках дополнения к классам и вышли. Я сам пользуюсь 6 Делфи уже давно, но у меня есть книга Архангельского "Делфи 5" в которой класс TStringList и все его методы описаны в подробностях... может автор и опередил время, но... я точно помню, что использовал DelimitedText... но видимо у меня оба сервпака были установлены (я за этим слежу, люблю обновления больше чем релизы) :).
← →
Vdovin-AV@yandex.ru (2002-09-20 14:29) [32]Для Zemal:
Один сервопак я ставил и у меня этих методов нет,
но где взять второй для пятерки может подскажешь...
← →
Separator (2002-09-20 14:31) [33]В магазинах, на базарах
← →
Zemal (2002-09-20 14:40) [34]Могу выслать. Он однако большой. 28 мегов.
← →
Zemal (2002-09-20 14:54) [35]Вообще зачем он нужен? Установи лучше Делфи 6 и два сервпака... конечно если машина позволяет (говорят слабенькие процы плохо справляются). В Делфи 6, конечно, тоже не всё гладко... например вчера такую багу нашол: оказывается событие Application.OnMinimize срабатывает только один раз, а потом что-то происходит и приложение вообще не реагирует на кнопку минимизации(в заголовке окна), но на Application.Minimize из програмного кода реагирует нормально и сворачивается. Вот такая вот бага. Попробую в Support достучаться и сообщить. :) Почему так происходит совершенно непонятно. В Делфи 5 такого небыло.
← →
Vdovin-AV@yandex.ru (2002-09-20 14:54) [36]если это D5EntUpdate.exe то это у меня есть и уже установлено.
← →
Zemal (2002-09-20 15:00) [37]Ой... действительно у меня первый сервпак... второй дома... удивляюсь как этот тут ещё завалялся :)... щас я его грохну :). Сходи на сайт Борланда и посмотри, там должен быть, там полно всякого :).
← →
pasha_golub (2002-09-20 15:36) [38]
> Zemal
Согласен, основы надо знать. Но для одной строки классы создавать - это, извините, слишком. Ко всему прочему основы то как раз и кроются в старом процедурном методе, без него трудно будет что-то строить, ибо он есть очень крепкий фундамент.
За грамматику не сердись, уж больно ты категорично все заявлял, а я категоричности не люблю. :-))
← →
KSergey (2002-09-20 15:41) [39]>Zemal © (20.09.02 14:40)
2-й сервис пак для D5?!!!!! А борланд о нем в курсе?!
Есть подозрение, что вам все же стоит отойти от философствования и посмотреть на мир вокруг... ;)
Если же он у вас есть - можно уточнить где вы его взяли?
← →
qube (2002-09-20 15:49) [40]2 Zemal
"Если тебе проще придумать свое, чем найти готовое, то ты остановился в развитии" -- это ты, старина, загнул :)). Свое придумывать необходимо (!) для развития, хотя велосипеды изобретать не стоит. Ты посмотри на половину вопросов этого форума: а есть ли компонент, чтобы 2+2 сложить? Уж лучше остановиться в развитии, по-моему...
← →
Zemal (2002-09-20 16:16) [41]KSergey >> Не помню где я брал второй сервпак, но после накатки Делфи писал в About: Delphi 5.2 Servise pack 2.
qube >> Я не говорил что своё придумывать плохо, но своё надо придумывать с использованием уже имеющихся разработок! Что?! Зря что ли программеры Борланда трудились создавая классы?! Я имел ввиду, что не стоит трудиться и создавать своё, если аналог уже существует. К примеру и 2+2 ты можешь, не используюя стандартное сложение, побитово складывать... это будет просто смешно :). Так почему бы не использовать, то что разработано? Надо здраво рассуждать и искать пути решения... в общем-то большинство проблем возникающих перед нами уже решены, а мы зачастую, пытаемся программистским трудом их повторить просто не зная о них. К примеру, разве тяжело догадаться, что все операции по разбиению строк, их конкатенации и т.д. уже разложены по полочкам и есть методы, процедуры и функции, которые работают... и правильно работают. Почему бы не подумать и не поискать?! Так нет, нафиг нам искать, луче будем циклом и вручную городить и терять больше времени на вылавливание ошибок и баг, чем на поиск в хелпаках. Вот я чего имел ввиду, а не про придумывание. Я имел ввиду, что программист, столкнувшись с задачей, должен чутьём чувствовать, что есть уже подобное, надо найти и использовать, а не городить заново. Не использовать существующее также смешно, как есть спагетти ложкой :).
← →
REA (2002-09-20 16:30) [42]Да чтоб она уже сдохла, эта Маша.
← →
Антон К. (2002-09-20 18:14) [43]нуууу, спасибо всем, но я уже нашел (часов 35 назад). :)
← →
Zemal (2002-09-20 18:30) [44]Антон К. >> Да тут уже и не про твой вопрос полемика идёт :). Тут уже часть форума "Потрепаться". :) Ту молодец, задавай вопросы и запоминай ход мысли. Рости! Удачи!
← →
Shrek (2002-09-20 19:00) [45]To Zemal
Програмист должен знать и уметь всё, только тогда он будет програмистом. Я думаю что перед тем как использовать автомобиль Ты должен изобрести вилосепед вот только тогда ты будеш понималь как работает автомоль, и даже может быть сможеш создать свой автомобыль и даже не один.
Тоесть и за TString и за цыкл.
Прышлушаемся к qube: розвиватся надо, хотябы только по тому чтоби не забуть паскаля.
Я заметил что на этом форуме сильно ценится asm а для чего?
Если я буду использовать только TString я буду програмистом который умеет хорохо обращатся с мышкой.
Посмотрыте как делаются БД, можно создать полностю работоспасобною програму не написаф не строки кода, и фиг я буду знать и как там всё это работает. И скажите что я програмист после такого.
Если так пойдёт и дальше то внедалёком будущем например Делфи 10, програмист создаёт програму: говорит в микрофон "Создать новою базу даних с такими полями ... Окомпилировать!"
Я не имею ничего против такого так как оно скоро будет, но тогда я хрен буду знать что такое цыкл.
P.S. Скольно людей столько и мыслей.
← →
AndreyS (2002-09-20 19:09) [46]Какая, однако, живучая Маша оказалась, хотя и сильно болеет туберкулезом.
Никого не хотел обидеть. Просто шутка.
← →
Сергей Медяник (2002-09-20 22:49) [47]К сожалению, иногда сложно выбрать: потратить X времени на самостоятельный, неказистый, но работающий алгоритм ИЛИ потратить Y времени на поиск того, как это делается просто и красиво. Что меньше X или Y никогда не узнаешь заранее! Пока не изобрели способов загружать непосредственно в память человека HELP к языку, приходится довольствоваться чтением, а это занимает реальное, предоплаченное время :-)
Не стОит обижать человека, если он предлагает свой способ, на который он затратил X времени. Все-таки форум - обмен мнениями, а не истина в высшей инстанции.
P.S. Передавайте привет Маше!
← →
Vlad1 (2002-09-22 12:16) [48]>To Zemal
В общем согласен! Но нельзя забывать и об ошибках в Хелпах (ведь бывают!).
← →
MaratFromTomsk (2002-09-23 07:46) [49]Про решение задачи
"Нужно из этой строки вытащить все слова и вставить их в listbox этаким списком."
Во первых тут две задачи
1. строку разделить на слова
2. добавить слово в список
У меня тут возникают вопросы и ответы:
Cлово = последовательность сиволов между одним и более разделителей.
Разделитель = табуляция, перевод строки, точка, запятая, точка с запятой и т.д.
надо ли извлекать разделители вместе со словом?
скорее всего нет.
const Delimeters = [#8, #10, #13, #32, ".", ";"];
function GetWord(var p: PChar): string;
begin
// пропустить разделители
while p^ in Delimeters do inc(p);
result := "";
// пока не встретился разделитель
while not(p^ in Delimeters) do begin
inc(p);
result := result + p^;
end;
end;
procedure InsertWordsFromLineToHell(const s: string);
var
p: PChar;
word: string;
begin
p := PChar(s);
repeat
word := GetWord(p);
if word <> "" then Hell.Add(word);
until s = "";
end;
Обычно в таких задачах где нужно выделять слова, надо делать и другие вещи.
Ужасно не люблю спагетти, где все так перепуано.
Нужно отделять как показывать, от того что показывать
и какие преобразования необходимо при этом выполнять.
Есть патерн Observer. Модель - представления модели.
Модель это данные, например таблица
Представления - Grid, Chart и т.д.
ну я уже уплыл в сторону ....
а про то что StringList стал круче приятно узнать
вот уже Delphi 7 появилась
я к сожалению еще на Delphi 5
← →
Drin (2002-09-26 22:16) [50]2Shrek
Правильно, что-бы корректно и правильно научится писать приложения на Делфи нужно изучить Паскаль, Обжект-Паскаль и только тогда приступать к изучению языков более высокого уровня!
А главное развить в себе алгоритмичесскую логику!
Я вот учусь на II курсе в "КПИ", так ещё на I курсе, на втором уроке программирования нам дали задание нарисовать блок-схему решения квадратного уровнения, где такие вещи как sqrt не проходят, алгоритм выведения квадратного корня придумывайте сами! А на втором семестре мы писали программы не испольсуя языков-трансляторов, а используя HEX-редактор, вот так вот.
← →
Толик (2002-09-27 09:53) [51]Маша, как Ленин - не умрёт никогда!!!
← →
Маша (2002-09-27 11:09) [52]Ну вы блин даёте.....
← →
Smithson (2002-09-27 12:01) [53]2 Drin
И толку?!! Я тоже так учился, только все, что нам давали в институте, в жизни на надо вообще. А если ты пытаешься привести пример, как можно заставить человека ПРИДУМАТЬ алгоритм, то я тебе скажу - заставить придумывать нельзя! Придумывать человек или умеет, или нет. И тогда он лазит по форумам с вопросом "как сложить 2 и 2".
2 Zemal
По-моему, умение написать свой алгоритм гораздо более ценно, чем умение найти нечто похожее в Help`е. К тому же у людей бывают разные конструкции голов. И это не наезд - мне доводилось заниматься поддержкой mainframe IBM, так вот что я скажу - за такие инструкции (пошаговые, для тупых) - убил бы, если б поймал. Ну по разному мы с автором инструкций мысли и термины разные у нас для одних и тех же вещей были... Это я к тому, что поиск в Help порой может быть весьма нетривиальной задачей для человека, привыкшего другой структуре мышления...
Sorry за offtopic, тут тема такая, болтливая....
← →
Drin (2002-09-29 13:03) [54]2Smithson
Не заставить человека ПРИДУМАТЬ алгоритм, а развить его способности, научить его думать в нужном направлении.
← →
Smiths (2002-09-29 17:23) [55]Бедная Маша... :)
← →
Туберкулез (2002-09-29 22:30) [56]Хорош болтать!
Не мешайте нам с Машей.
И свет погасите.
← →
Anatolyk (2002-09-30 12:27) [57]Народ, Ша! И в правду, оставьте бедную девочку - пусть болеет как умеет.
Лучше подскажите, почему D6 глючит в такой ситуации (как правильно написать?):
Приложение консольное.
Хочу writeln-ом написать строку по-русски.
Как только перед этим делаю CharToOEM(S,S) - ругань, сказки про неверные адреса, якобы user.dll не такой и пр.
← →
Polevi (2002-09-30 12:51) [58]2Anatolyk (30.09.02 12:27)
под второй параметр надо в 2 раза больше памяти, она у тебя не выделена вот так легенды про глючные Delphi 6 и рождаются
← →
Anatolyk (2002-09-30 14:17) [59]A без второй переменной?
← →
Anatolyk (2002-09-30 14:23) [60]и еще ...
//при записи в файл - все ОК
tmpstr := pchar(s);
CharToOEM(tmpstr,tmpstr);
WriteLn(CfgFileVar,tmpstr);
← →
Парень (2002-09-30 18:54) [61]А Маша между прочим была моей первой девушкой...
← →
sancho (2002-10-02 21:20) [62]Бедная Маша.... Болеет туберкулёзом да ещё парень её бросил. :(((
← →
Val (2002-10-02 21:48) [63]>Shrek © (20.09.02 19:00)
мне про БД поравилось :)
Вы с ними работали?
Страницы: 1 2 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Память: 0.62 MB
Время: 0.008 c