ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
17.06.2009, 13:33
|
|
Участник форума
Регистрация: 30.05.2009
Сообщений: 139
Провел на форуме:
620261
Репутация:
30
|
|
Есть некая переменная и мне нужно сравнить ее с несколькими значениями.
If a='' Then Begin...
Так очень муторно писать,да и не очень хорошо влияет на код. Мне нужен альтернаивтный вариант типа case of
|
|
|
17.06.2009, 15:11
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от .::f-duck::.
Есть некая переменная и мне нужно сравнить ее с несколькими значениями.
If a='' Then Begin...
Так очень муторно писать,да и не очень хорошо влияет на код. Мне нужен альтернаивтный вариант типа case of
c
ase [переменная] of
[значение]: begin
[оператор]
[оператор]
end;
end;
чем ни чудо?)
... 
|
|
|
|
17.06.2009, 15:27
|
|
Участник форума
Регистрация: 30.05.2009
Сообщений: 139
Провел на форуме:
620261
Репутация:
30
|
|
Я же говорю, что не пашед. Переменная типа string .
|
|
|
|
17.06.2009, 15:33
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от .::f-duck::.
Я же говорю, что не пашед. Переменная типа string .
а ты в одинарных кавычках её записал  ?
|
|
|
|
17.06.2009, 15:59
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Есть некая переменная и мне нужно сравнить ее с несколькими значениями.
If a='' Then Begin...
Так очень муторно писать,да и не очень хорошо влияет на код. Мне нужен альтернаивтный вариант типа case of
case только для однобайтовых величин...
Делай вместо If a='' Then Begin...
if a <> '' then exit;
|
|
|
|
19.06.2009, 03:35
|
|
Новичок
Регистрация: 14.06.2008
Сообщений: 29
Провел на форуме:
221810
Репутация:
3
|
|
помоги с проблемкой....
как в делфи программно отключить выравнивание иконок на рабочем столе(по типу, имени, размеру и по сетке)?
Последний раз редактировалось PAXAn; 19.06.2009 в 03:54..
|
|
|
|
19.06.2009, 19:20
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от PAXAn
помоги с проблемкой....
как в делфи программно отключить выравнивание иконок на рабочем столе(по типу, имени, размеру и по сетке)?
..можно найти файл с конфигурацие рабочего стола( я хз как он называется), и переписывать его. способ зверский, но рабочий 100%..
посмотри тут:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer...
и тут
http://www.delphikingdom.com/asp/viewitem.asp?catalo... (скачайте архив примера DskIcLive.zip)
Последний раз редактировалось KaZ@NoVa; 19.06.2009 в 21:03..
|
|
|
|
19.06.2009, 23:56
|
|
Новичок
Регистрация: 14.06.2008
Сообщений: 29
Провел на форуме:
221810
Репутация:
3
|
|
спасибо
|
|
|
|
20.06.2009, 22:49
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
Провел на форуме:
243951
Репутация:
1
|
|
delete
Последний раз редактировалось boomba; 21.06.2009 в 18:03..
|
|
|
|
21.06.2009, 12:03
|
|
Новичок
Регистрация: 14.06.2009
Сообщений: 8
Провел на форуме:
16192
Репутация:
1
|
|
Не получается закинуть файл на фтп! Проблемное место в коде отмечено!
Delphi говорит: "Incompatible types: 'string' and 'PAnsiChar' "
Помогите!
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, wininet, Mask, ComCtrls;
var
conn_param,inet_open : hinternet;
AboutPC, ftpfilename, filename:pchar;
port: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
Port:=21;
AboutPC:=Pchar('PC');
filename:='C:\Info_.txt';
ftpfilename:='/test/Info_'+AboutPC+'.txt'; // вот здесь он ругается!
inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
conn_param := internetconnect(inet_open,'ftp.ru',port,'Name','Pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(conn_param);
internetclosehandle(inet_open) ;
if true then
showmessage('Good');
end;
end.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
