[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 ты же не знаешь, какой уровень эвристики установлен...
А индюк, вроде, уже свое отходил... навряд ли он опять всплывет...