[Uuuu]

1. Дана строка, состоящая из слов, разделенных одним пробелом. Вывести строку, состоящую из этих же слов, записанных в обратном порядке. Например, "Я изучаю программирование" => "программирование изучаю Я".
2. Дан текст (массив строк) в котором каждая строка содержит до 255 цифр. Составить программу, которая вычисляет сумму цифр в каждой строке.

[NumLock]

Код:

var
  LStrings: TStrings;
  S: String;
begin
  LStrings:=TStringList.Create;
  try
    LStrings.Delimiter:=' ';
    LStrings.DelimitedText:=Edit1.Text;
    S:='';
    while LStrings.Count>0 do
    begin
      S:=S+' '+LStrings[LStrings.Count-1];
      LStrings.Delete(LStrings.Count-1);
    end;
    Edit2.Text:=Trim(S);  
  finally
    LStrings.Free;
  end;
end;

[Alegun]

Код:

var
 sl: TStrings;
 i, j, b: integer;
begin
 sl:= TStringList.Create;
 sl.Assign(Memo1.Lines);
 for i := 0 to sl.Count-1 do
  begin
   b:= 0;
   for j := 1 to Length(sl[i]) do
    Inc(b, StrToInt(sl[i][j]));
   sl[i]:= sl[i] + ' = ' + IntToStr(b);
  end;
 Memo1.Lines.Assign(sl);
 sl.Free;
end;

[Uuuu]

C трояном первая задача

[Admin]

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

Код:

var
  LStrings: TStrings;
  S: String;
begin
  LStrings:=TStringList.Create;
  try
    LStrings.Delimiter:=' ';
    LStrings.DelimitedText:=Edit1.Text;
    S:='';
    while LStrings.Count>0 do
    begin
      S:=S+' '+LStrings[LStrings.Count-1];
      LStrings.Delete(LStrings.Count-1);
    end;
    Edit2.Text:=Trim(S);  
  finally
    LStrings.Free;
  end;
end;

Действительно, что-то не нравится Касперскому, не дает скомпилить, хотя что там может быть не понятно.

[lmikle]

Бывает.
Варианты:
1. Вставить несколько ненужных комманд.
2. понизить уровень эвристики
3. Убрать рабочую папку из путей проверки.
Я сделал 3е у себя.

[Bargest]

4. Индюк.
Скопировал этот код и скомпилировал в D7, на VT только 3 вердикта: Antiy-AVL, Cyren и F-Prot. Причем два из них - по всей видимости, вендоры с общим движком.
Может у меня делфа не такая, не знаю. Кастомная сборка какая-то завалялась.

[lmikle]

Мож и кастомная сборка, может просто версия другая, а может уже антивирь обученный попался...
Опять же, на VT ты же не знаешь, какой уровень эвристики установлен...
А индюк, вроде, уже свое отходил... навряд ли он опять всплывет...

[NumLock]

хотелось бы уточнить. вирус в моем exe из архива или после компиляции вновь созданного проекта с этим исходным кодом в exe тоже вирус?

[lmikle]

про индюка почитай в инете. Его наличие довольно легко проверяется руками и вычищается он тоже достаточно легко. Другие вирусы... ну я о таких, которые заражают только компиляторы и уже после этого заражают собранные таким компилятором программы, не слышал после индюка. Да и тот не совсем честно это делал. Я бы сказал, что 99% это false positive антивиря. Было дело, что антивирь нервно реагировал на пустую форму с 1ой кнопкой, а после добавления простейшего ShowMessage переставал ругаться...

[NumLock]

Так индюк у всех получается нагадил

[Admin]

У меня почему-то только с этим проектом проблемы, остальные все по Касперскому тише воды ниже травы )

[lmikle]

Посмотрел отчет:
Trojan[:HEUR]/Win32.AGeneric
Это явный результат срабатывания эвристики. Т.е., как и говорилось раньше, false positive.
попроьуй строку "S:='';" переместить в другое место и перекомпилять. Иногда помогает. Ну и имя проекта поменять. Тоже были ситуации, когда этого было достаточно, что бы антивирь прекращал ругаться.

[NumLock]

вообщем на работе установили Касперского Конецточка Сецюриту 10. действительно, если проект компилировать на Delphi 7, то он находит в нем трояна. но если в uses добавить к примеру

Код:

ActiveX, ComObj,

то троян странным образом исчезает
компиляция на Delphi 2010 троян не обнаруживает.
зато троян был обнаружен в другой программе откомпилированной на Delphi 2010 и написанной на WinAPI. добавление модуля SysUtils решило проблему с трояном, но увеличило размер программы в 4 раза