Что убивает немецкие символы

[HellMercenariess]

На форме есть два ричЭдита, если в одном написать Wörterbuchartikel то в другой перекинет
w?rterbuchartikel

type
   TData = Array of AnsiString;

function Split(S : AnsiString; C :AnsiChar): TData;

implementation

function Split(S : AnsiString; C :AnsiChar): TData;
var
   Data : TData;

   procedure DelC(var S : AnsiString);
   var
     i : Integer;
   begin
     i:=0;
     while (Length(s) > 0) and (S[i+1]=C) do
       Inc(i);
     Delete(S, 1, i);
   end;

   procedure Splitting(S : AnsiString);
   var
     w : AnsiString;
     i : Integer;
     k : Integer;
   begin
     if Length(s) < 1 then
       Exit;
     if S[1] = C then
       DelC(S)
     else
     begin
       w:=''; i:=1;
       while ( s[i] <> C ) and ( i <= Length(S) ) do begin
         w:=w+S[i];
         Inc(i);
       end;
       Delete(S, 1, Length(w));
       k:=Length(Data);
       SetLength(Data,k+1);
       Data[k]:=w;
     end;
     Splitting(S);
   end;

begin
   Splitting(S);
   Result:=Data;
end;

Может ли обработка здесь его резать?

[Пепел Феникса]

Ansi у вас его режет скорее всего.

[HellMercenariess]

Сообщение от Пепел Феникса

Ansi у вас его режет скорее всего.

изначально было так:

type
   TData = Array of String;

function Split(S : String; C : Char): TData;

implementation

function Split(S : String; C : Char): TData;
var
   Data : TData;

   procedure DelC(var S : String);
   var
     i : Integer;
   begin
     i:=0;
     while (Length(s) > 0) and (S[i+1]=C) do
       Inc(i);
     Delete(S, 1, i);
   end;

   procedure Splitting(S : String);
   var
     w : String;
     i : Integer;
     k : Integer;
   begin
     if Length(s) < 1 then
       Exit;
     if S[1] = C then
       DelC(S)
     else
     begin
       w:=''; i:=1;
       while ( s[i] <> C ) and ( i < = Length(S) ) do begin
         w:=w+S[i];
         Inc(i);
       end;
       Delete(S, 1, Length(w));
       k:=Length(Data);
       SetLength(Data,k+1);
       Data[k]:=w;
     end;
     Splitting(S);
   end;

begin
   Splitting(S);
   Result:=Data;
end;

так уже резались, я в панике начал дописывать ansi, все-таки анси более расширенная версия, дальше только WideChar?


Delphi 'ü' 'ä' не принимает, а у меня конста так записана:

 const VoC=['A','E','Y','U','I','O','u','a'];

как мне дописать еще 4 символа которые делфи не принимает?

[Stilet]

которые делфи не принимает?

Каким образом не принимает? Ругается?
Если взять необычную раскладку в том числе немецкую, и начать писать умляуты делфи выше 2005-ки предупредит о том что сорцы будут перестроены в юникод, и тихонько примет все юнисимволы безболезнено.

[HellMercenariess]

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

Каким образом не принимает? Ругается?
Если взять необычную раскладку в том числе немецкую, и начать писать умляуты делфи выше 2005-ки предупредит о том что сорцы будут перестроены в юникод, и тихонько примет все юнисимволы безболезнено.

когда нажимаю 'Ü' пишет обычное 'U'.

у меня:
Verison 7.0 (Build 4.453)
Copyright 1983-2002
Borland SOftware Corp.

это версия в которой нет встроенного ТTrayIcon.

[GunSmoker]

Verison 7.0 (Build 4.453)

Не занимался бы ты извращениями. Тебе нужна Delphi 2009 или выше.

[HellMercenariess]

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

Не занимался бы ты извращениями. Тебе нужна Delphi 2009 или выше.

а почему в этом разделе нет гайда по версиям(прикрепленного) я вот в Вики почитал, тут с версиями и совместимостью продуктов черт ногу сломит, особенно для тех кто только начинает осваивать среду надо очень подробно разжевать какой продукт именно надо.


1 Embarcadero Delphi Prism не относится к Дельфи?
2 Delphi_2009_RTM_v12.0.3170.16989
3 mbarcadero RAD Studio XE Architect + Help Update 2 + Delphi Prism XE + RadPHP XE (ML)
насколько я понял первый продукт к старому Delphi не имеет отношения,
второй и третий должны подойти.

Покупал DWD-диск 4 года назад не думал что там настолько древняя версия, да и поначалу все устраивало.

[Stilet]

это версия в которой нет встроенного ТTrayIcon.

Ах вы... Подкалывать теперь форумчане меня за это будут
Ладно ладно...

Тебе нужна Delphi 2009 или выше.

Да. Пожалуй я порекомендую ХЕ взять. Сам на нее перешел.

да и поначалу все устраивало.

Время на месте не стоит. Ниче не поделаешь.

[GunSmoker]

особенно для тех кто только начинает осваивать среду надо очень подробно разжевать какой продукт именно надо

Тут просто нечего особо разжёвывать. Зачем новичку брать динозавра двенадцатилетней давности?

Embarcadero Delphi Prism не относится к Дельфи?

Это тоже Delphi. Но он компилирует для .NET, а не нативный код.

второй и третий должны подойти

Лучше брать XE.

Stilet, а ты в разделе модератор или нет? Пытался тебе в личку стукнуться, но не пущает.

Мысль насчёт описания - здравая. Может добавим?

Могу написать сам, если лениво, но тему надо будет тогда закрепить в шапке раздела. Вижу это как список (вернее, табличку) версий с датами выхода, нумерацией, именами, версиями RTL и кратким описанием. Без ссылок, разумеется.

[Stilet]

Пытался тебе в личку стукнуться, но не пущает.

Старая болячка портала...

Мысль насчёт описания - здравая.

Так то оно так, только...
Ресурс то обновлять кто будет? Тему с прикреплением в топе создать можно, но...
Даже не знаю как сказать... Смысла особого не вижу. Инфа быстро будет устаревать на фоне выкладок What News разработчиков.
Тогда уж нужно и за VS следить будет. И за PHP с его версиями, а так же за виндузами и линухами, иначе как-то неполноценно получится.
Впрочем эту тему с твоим предложением я вынесу на совет модераторов - идея заслуживает рассмотрения без сомнения.

Просто... звиняйте уж, энтузазызм мой чет примерз маненько...