УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 474 из 677

474

Опции темы

Поиск в этой теме

Опции просмотра

#4731

27.10.2009, 21:06

alexey-m

Познающий

Регистрация: 15.07.2009

Сообщений: 71

Провел на форуме:
520157

Репутация: 35

Отправить сообщение для alexey-m с помощью ICQ

Подскажите пожалуйса, как определить смещение в РЕ файле на таблицу экспорта/импорта, а точнее на имена экспортируемых/импортируемых функции

#4732

27.10.2009, 21:09

[n]-c0der

Участник форума

Регистрация: 03.02.2009

Сообщений: 104

Провел на форуме:
270228

Репутация: 70

Цитата:

Сообщение от alexey-m

Для начала надо внимательно почитать о структуре PE файла и таких вопросов не возникнет. -> wasm.ru

#4733

27.10.2009, 21:44

intNet

Познающий

Регистрация: 31.05.2009

Сообщений: 68

Провел на форуме:
1271980

Репутация: 19

Цитата:

Сообщение от lastsmile

пробовал. я такой пример нагуглил. дельфи ругается.

В остальных случаях синтаксическая ошибка. а про домен правильно подсказал.

У тебя наверное mstscax.dll версии 5.*. обнови до 6.*, ошибка исчезнет.

#4734

27.10.2009, 21:54

Dmitriik750

Познающий

Регистрация: 23.07.2009

Сообщений: 30

Провел на форуме:
257718

Репутация: 11

как ра знашел что, что искал)

#4735

27.10.2009, 22:42

lisenok21

Новичок

Регистрация: 23.08.2009

Сообщений: 4

Провел на форуме:
104350

Репутация: 0

подскажите
может у кого есть ссылка где взять ретривер для вконтакте

#4736

28.10.2009, 01:13

Nick_Rimer

Новичок

Регистрация: 12.05.2008

Сообщений: 19

Провел на форуме:
28051

Репутация: 2

Здравствуйте!
Помогите пожалуйста для моего случая найти какую-то альтернативу для case или подскажите, что я должен сделать с ним, чтобы эта зараза работала. Видите ли ему нужны ordinal types, то есть проверить, равна ли переменная числу мы можем, а вот проверить равность какой-то строке не получается, тут только многострочным if..else приходится..

Хотя, все несколько проще. На функцию пришла строка в виде одного символа или буквы.. Надо определить, чему она там равна и вывести результат; на каждый символ результат разный.

Например:

---------------
function TForm1.ABC(c:string):string;
begin
case с of
'A': begin .. end;
'B': begin .. end;
...
'Z': begin .. end;
end;
end;
------------

переход на pchar не получился, все равно где-нибудь ругается..
помогите, пожалуйста все поставить на места, мне ужасно лень набирать кучу ифов и их элсов.. но если надо, то придется..

#4737

28.10.2009, 02:04

Chrome~

Постоянный

Регистрация: 13.12.2008

Сообщений: 354

Провел на форуме:
1747641

Репутация: 175

Отправить сообщение для Chrome~ с помощью ICQ

Может быть нужно записывать так:

Код:

case с[1] of

#4738

28.10.2009, 02:13

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Отправить сообщение для StealthMaster с помощью ICQ

Цитата:

---------------
function TForm1.ABC(c:string):string;
begin
case с of
'A': begin .. end;
'B': begin .. end;
...
'Z': begin .. end;
end;
end;
------------

В вашем в коде (case с of) записана русская буква С, вместо английской C, поэтому, вероятно, и ругается даже при смене типов переменных.

Код, который будет работать:

Код:

function ABC(par: char): string;
begin
  case par of
    'A': begin
            Result := 'lalala';
         end;

    'B': begin
            Result := 'ololo';
         end;
  end; // case
end; // ABC

Если в качестве параметра функции передается только 1 символ, то логично использовать тип Char, нежели String.

Последний раз редактировалось StealthMaster; 28.10.2009 в 02:31..

#4739

28.10.2009, 11:56

Nick_Rimer

Новичок

Регистрация: 12.05.2008

Сообщений: 19

Провел на форуме:
28051

Репутация: 2

Цитата:

В вашем в коде (case с of) записана русская буква С, вместо английской C, поэтому, вероятно, и ругается даже при смене типов переменных.

ну, знаете, я не настолько дурак, чтобы писать переменные в делфи по-русски

я тоже думал о том, чтобы передавать char, но ситуация такова, что я должен преобразовать тип string в тип char, а именно это у меня что-то не выходит..

#4740

28.10.2009, 18:45

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Цитата:

Используйте функцию, написанную выше, вызванную так:

Код:

...
var
  str1, str2: string;
  n: byte;
begin
  ... // вычисление нужной строки и номера нужного символа в строке (n)
  str2 := ABC(str1[n]);
  ...
end;

Цитата:

ну, знаете, я не настолько дурак, чтобы писать переменные в делфи по-русски

каждый может ошибиться

мы же люди, а не машины.

Последний раз редактировалось StealthMaster; 28.10.2009 в 18:48..