Защо ? / Компютри и Интернет / Delphi

търси в

Клубове

diri.bg


Име
Парола

• Нов потребител

• Забравена парола

Клубове

• Dir.bg
• Взаимопомощ
• Горещи теми
• Компютри и Интернет
• Контакти
• Култура и изкуство
• Мнения
• Наука
• Политика, Свят
• Спорт
• Техника
• Градове
• Религия и мистика
• Фен клубове
• Хоби, Развлечения
• Общества
• Я, архивите са живи

07:41 02.05.24

Клубове/ Компютри и Интернет / Delphi
Информация за клуба

Тема	Защо ?
Автор	Waz Gaa (_)
Публикувано	08.05.03 14:22

procedure TForm1.Button1Click(Sender: TObject);
const
char = WideChar(#$3b5);
text = WideString(#$c0#$152 + char + #$7);

var
i: Integer;

begin
for i := 1 to Length(text) do
if char = text[ i] then
Button1.Caption := 'ok';
end;

Защо нямам ОК

Смятах да го пусна в някоя newsgroup-а , но я да видим вашето мнение. Това съм го писал под Делфи 7 и е малко променено спрямо кода, който ми трябва да подкарам.

by Waz Gaa

Съдържаниет е скрито
Влезте за да го видите

Цялата тема
Тема	Автор	Публикувано
Защо ?	Waz Gaa	08.05.03 14:22
Re: Защо ?	SDR	08.05.03 15:10
Re: Защо ?	Waz Gaa	09.05.03 17:35
Izwod:	SDR	10.05.03 11:32
Мдаа	Waz Gaa	10.05.03 13:42
Re: Защо ?	NDeu	08.05.03 15:55
Re: Защо ?	Waz Gaa	09.05.03 17:31

Клуб :

Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg

За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.