Форум на Исходниках.RU

RAD Studio XE

jack128 — Tue, 08 Mar 2011 13:26:40 +0000

jack128: CodeMonkey а что такого??
самые очевидные варианты использования (из .NET)

interface IClonable<T>

{

T Clone();

}

class MyClass : IClonable<MyClass>

{

public MyClass Clone() { return new MyClass(); }

}

Добавлено 08.03.11, 13:27
Shaggy qc ждет тебя

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

CodeMonkey — Sun, 06 Mar 2011 22:02:08 +0000

CodeMonkey: IAction = interface(IReference)

Это как?

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

Shaggy — Sun, 06 Mar 2011 20:35:20 +0000

Shaggy:

type

IReference<T:IInterface> = interface

function This:T;

end;

type

IAction = interface(IReference<IAction>)

end;

Цитата

[DCC Error] E2086 Type 'IAction' is not yet completely defined

:(

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

ViktorXP — Sun, 06 Mar 2011 19:25:16 +0000

ViktorXP: только что нечаянно обнаружил что есть возможность настраивать RTTI (что видеть и в каких секциях)
RTTI directive
это оказывается еще с 2010 версии доступно.

пс. это мне не хило облегчит жизнь.

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

ViktorXP — Tue, 22 Feb 2011 22:01:47 +0000

ViktorXP:

Цитата Romkin @ 22.02.11, 21:57

Может, следовало уже не пропустить объявление Test: TTest;?

Это было бы более правильно (в Си++ так делается). Но насколько я понял то в делфи идет по обратному
из за чего нельзя написать

type

TTest2<T> = class

function Test(v1, v2: T): T;

end;

function TTest2<T>.Test(v1, v2: T): T;

begin

result := V1+v2;

end;

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

--Ins-- — Tue, 22 Feb 2011 21:59:46 +0000

--Ins--:

Цитата Romkin @ 22.02.11, 21:57

Ты уже вкомпилировал вызов по соглашению.

Слово то какое - "вкомпилировал"... Надо будет запомнить :D

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

Romkin — Tue, 22 Feb 2011 21:57:27 +0000

Romkin:

Цитата ViktorXP @ 22.02.11, 21:52

Потому что
Test: TTest;

это тоже самое что я буду пытатся

Не то же самое. Ты уже вкомпилировал вызов по соглашению. Может, следовало уже не пропустить объявление Test: TTest;? Правило то же: на основе того, что неявно подставлен TMyObject1 в Test...
Тут можно было говорить о том, что не должно было пропустить вызов с явным потомком, независимо от того, есть ниже реализация дженерика или нет. Но не думаю, что это правильно.

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

ViktorXP — Tue, 22 Feb 2011 21:52:08 +0000

ViktorXP:

Цитата Romkin @ 22.02.11, 21:49

Почему?

Потому что
Test: TTest;

это тоже самое что я буду пытатся

type

TForm1 = class(TForm);

TForm2 = class(TForm);

procedure Test(frm: TForm1);

begin

end;

Test(Form2); // тут ругнется ошибкой. хотя обе формы являются потомком TForm

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

Romkin — Tue, 22 Feb 2011 21:49:54 +0000

Romkin:

Цитата ViktorXP @ 22.02.11, 21:34

pr(MyObject); // это не должно было пропустить.

Почему? Если я не ошибся, MyObject - потомок TMyObj.

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

ViktorXP — Tue, 22 Feb 2011 21:34:14 +0000

ViktorXP: офигеть. сегодня на работе столкнулся с трудностью

type

TTest<T> = class

procedure Test;

end;

{ TTest }

procedure TTest<T>.Test;

procedure ProcTest; //[DCC Error] Unit5.pas(38): E2570 Local procedure in generic method or method of generic type is not supported

begin

end;

begin

end;

Неужто так трудно было организовать локально-процедурные методы в дженериках.

при этом пропускает банальности

type

{$M+}

TMyObj = class(TObject)

end;

TMyObject1 = class(TMyObj)

end;

TMyObject2 = class(TMyObj)

end;

var

MyObject: TMyObject1;

type

TTest<T: TMyObj> = class

procedure Test;

end;

{ TTest }

procedure TTest<T>.Test;

var

pr: TProc<T>;

begin

pr := procedure (Obj: T)

begin

end;

pr(MyObject); // это не должно было пропустить.

end;

var

Test: TTest<TMyObject2>;

Это сообщение было перенесено сюда или объединено из темы "Новости Embarcadero"

RAD Studio XE

Fr0sT — Wed, 26 Jan 2011 07:04:11 +0000

Fr0sT: Хм, а мне как-то на редкость неудобным показался. На сайте, конечно, тоже криво всё сделано, но хоть более-менее юзать можно.

RAD Studio XE

ViktorXP — Tue, 25 Jan 2011 22:30:06 +0000

ViktorXP: прикольную они клиента под Quality Central сделали. Теперь багрепортом стало пользоваться удобнее :)
пс. ему бы еще рус. язык и ему бы цены не было.

RAD Studio XE

Fr0sT — Tue, 25 Jan 2011 11:56:27 +0000

Fr0sT: Ага, есть такое. Зачем - хз, скорее всего баг. Напиши в QC, если такой темы нету еще :)

Как там насчет новой версии, ни у кого вестей с фронтов нету?

RAD Studio XE

ViktorXP — Tue, 25 Jan 2011 09:32:33 +0000

ViktorXP: Только что обнаружил странный глюк при syncedit
если выделить часть кода и включить syncedit (Ctrl+Shift+J или кнопкой), а потом поставить курсор перед любой строкой в блоке и нажать Ctrl+/ то будет продублирована строка. одна будет закоментирована вторая нет.
Это глюк или фича?

пс. возможно не потеме, но даже в XE эта "фича" проявляется

RAD Studio XE

ViktorXP — Mon, 29 Nov 2010 14:04:32 +0000

ViktorXP:

Цитата Fr0sT @ 29.11.10, 14:02

А, obj-ами сделали? Это хорошо.

ага. сам люблю когда они так делают :lol:
единственный минус что невозможно глянуть/исправить

RAD Studio XE

Fr0sT — Mon, 29 Nov 2010 14:02:49 +0000

Fr0sT:

Цитата ViktorXP @ 29.11.10, 13:56

там инклудится все в файл

А, obj-ами сделали? Это хорошо.

Цитата ViktorXP @ 29.11.10, 13:56

а глянуть самому я смотрю влом

Дык нету у меня ХЕ под руками, была триальная да кончилась, а портабельная запакована, не поглядишь, как там всё устроено.

RAD Studio XE

ViktorXP — Mon, 29 Nov 2010 13:56:28 +0000

ViktorXP: нет. там инклудится все в файл. ты ведь не таскаешь с собой джипеговские или зелибовские библиотеки.

пс. а глянуть самому я смотрю влом. :)

RAD Studio XE

Fr0sT — Mon, 29 Nov 2010 13:54:15 +0000

Fr0sT:

Цитата

TPerlRegEx is a wrapper around the open source PCRE library

Э... так, выходит, теперь либу придется с собой таскать?

RAD Studio XE

ViktorXP — Mon, 29 Nov 2010 12:13:48 +0000

ViktorXP: не то и не другое.
там TPerlRegEx. он помощьнее за TRegExpr.

RAD Studio XE

Fr0sT — Mon, 29 Nov 2010 12:04:05 +0000

Fr0sT:

Цитата ViktorXP @ 25.11.10, 12:35

правда гады написали всего одну строчку про это

Вообще это один из основных highlights, не знаю, как можно было пропустить :). Они своё написали или взяли TRegExpr Сорокина?

RAD Studio XE

ViktorXP — Thu, 25 Nov 2010 12:35:44 +0000

ViktorXP: ~~ахр~~офигеть. я все таки этого дождался. я думаю ни раз разработчики задавали себе вопрос почему в делфи нет встроенных регулярок. и в основном юзали сторонний компонент (если нужно было)
а вот только что нечаянно (не совсем нечаянно. просто компонент в XE отвалился и пришлось искать замену) нашел в документации к XE что они встроили в делфю регулярки.
правда гады написали всего одну строчку про это:

Цитата www.embarcadero.com

Language, Compiler and Library Enhancements

Continued improvements and enhancements to your application foundation.

Updates to the VCL, RTL, and STL
Regular expressions for Delphi RTL
Enhanced TStrings and Date/Time functionality
Enhanced RTTI support for C++, new rvalue references, move semantics for std::string, and additional C++ VCL enhancements
Added support for the OpenTools API for internal tabs
Improved compiler performance

и пришлось самостоятельно выискивать по крупицам где это у нас уже регулярки есть.
модуль: RegularExpressions
класс: TRegEx
стандарт: PCRE

uses

RegularExpressions;

procedure TForm5.Button1Click(Sender: TObject);

var

Reg: TRegEx;

i:integer;

M: TMatchCollection;

begin

Reg := TRegEx.Create('[а-я]*',[roIgnoreCase, roMultiLine]);

M:=Reg.Matches('Я строка. И теперь меня можно парсить прамо в делфи без сторонних компонентов.');

for i := 0 to M.Count-1 do

Memo1.Lines.Add(M[i].Value)

end;

Эта тема была разделена из темы "Новости Embarcadero"