Подскажите, как сделать перебор строк из memo и сравнивать со строкой в Edit? (читать всё…)

В memo список url-ов. Нужно с помощью idhttp зайти по очереди — сначала на первый url, если соединение есть, то останавливаемся, если не соединило — берем второй url и так до конца. Как реализовать?

саша40

var

i: integer;

url: string;

begin

for i:=0 To Memo1.Lines.Count-1 Do

begin

url:=memo1.lines.strings;

idhttp1.host:=url;

idhttp1.connect;

if idHTTP1.Connected=false then

ListBox1.Items.Add(inttostr(i) + '-недоступен')

else

ListBox1.Items.Add(inttostr(i) + '-доступен');

idHttp1.Disconnect;

end;

ShowMessage('Готово');

end;

Пост написан при поддержке портала All4os.ru — универсальный портал об Операционных системах. Он создан для всех пользователей персональных компьютеров и других электронных устройств нуждающихся в качественном программном обеспечении, доступным по этой ссылке, а также в хорошем совете по его использованию.

тема на форуме

Как узнать версию уже скомпилированного exe файла?

Yurk@

я пользуюсь короткой версией:

function GetFileVersion(FileName: string; var VerInfo : TVSFixedFileInfo): boolean;

var

InfoSize, puLen: DWORD;

Pt, InfoPtr: Pointer;

begin

InfoSize := GetFileVersionInfoSize( PChar(FileName), puLen );

FillChar(VerInfo, SizeOf(TVSFixedFileInfo), 0);

if InfoSize > 0 then

begin

GetMem(Pt,InfoSize);

GetFileVersionInfo( PChar(FileName), 0, InfoSize, Pt);

VerQueryValue(Pt,'\',InfoPtr,puLen);

Move(InfoPtr^, VerInfo, sizeof(TVSFixedFileInfo) );

FreeMem(Pt);

Result := True;

end

else

Result := False;

end;

function ShowVersion(FileName:string):string;

var

VerInfo : TVSFixedFileInfo;

begin

if GetFileVersion(FileName, VerInfo) then

Result:=Format('%u.%u.%u.%u',[HiWord(VerInfo.dwProductVersionMS), LoWord(VerInfo.dwProductVersionMS),

HiWord(VerInfo.dwProductVersionLS), LoWord(VerInfo.dwProductVersionLS)])

else

Result:='------';

end;

1С:Предприятие — это (одновременно) и технологическая платформа, и пользовательский режим работы. Технологическая платформа предоставляет объекты (данных и метаданных) и механизмы управления объектами. Объекты (данные и метаданные) описываются в виде конфигураций. При автоматизации какой-либо деятельности составляется своя конфигурация объектов, которая и представляет собой законченное прикладное решение. Конфигурация создаётся в специальном режиме работы программного продукта под названием «Конфигуратор», затем запускается режим работы под названием «1С:Предприятие», в котором пользователь получает доступ к основным функциям, реализованным в данном прикладном решении (конфигурации).

купить 1с бухгалтерия базовая версия
тема на форуме

Имеется ListBox, в который загружается список файлов и в конце файла [0] или [1] — это параметр. В зависимости от параметра строка либо зеленая либо красная. У меня стоит сейчас CASE INDEX OF на 30 строк в котором проверка. Естественно если больше 30-ти строк то те не окрашиваются. Как сделать это правильно через цикл? (читать всё…)

Нужно сделать программу, чтобы считывало с файла строки ,определяло самую длинную и самую короткую строку, и потом эти строки дописывало в этот файл. (читать всё…)

artemavd

Мне нужно заменить самый последний символ в строке. (читать всё…)

Человек_Борща

Проблема:
Есть форма, при нажатии одной кнопки эта форма должна показывать одну иконку, при нажатии другой кнопки другую иконку. (читать всё…)

Я делаю тест в Delphi 7 мне нужно передать значение переменной со 2 в 3-ю форму. как это сделать? что прописать и где именно? (читать всё…)

(читать всё…)

andreyjn

Вообщем такая ситуация, сформировал отчет в BDS 2006 через FastReport (данные берутся из БД) и теперь его нужно выкинуть в MS Outlook для дальнейшей отправки. Т.е. нужно запустить Outlook и прикрепить этот отчет туда. Как такое можно сделать ?

(читать всё…)