1. Pascal / Говнокод #3721

    +97

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    procedure TStdMessageInfo.Build(pMessage: String; pKind: Integer);
var List: TStringList;
begin
  List := TStringList.Create;
  try {!!! это такой хитрый способ заменить #13 на #13#10}
    List.Text := pMessage;
    if List.Count = 1 then FMessage := List[0]
    else FMessage := List.Text;
  finally
    List.Free;
  end;
  FKind := pKind;
end;

    Запостил: borka, 16 Июля 2010

    Комментарии (3) RSS

    Добавить комментарий