Форум: "Потрепаться";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Вниз

Как перекинуть исходник и форму из Delphi 6 в Delphi 5   Найти похожие ветки 

← →
Svetlana   (2002-11-04 22:17) [0]

Как перекинуть исходник с формой из Delphi 6 в Delphi 5?

---

← →
Shrek   (2002-11-04 22:57) [1]

поищы на сайте королей, там есть спец прога для етого

---

← →
MBo   (2002-11-05 06:49) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=strmath&id=10164

---

← →
KoluChi   (2002-11-05 14:03) [3]

Для перехода на Dephi5 нужно в DFM изменить русские слова,
следующий код делает это:

procedure TForm1.ConvertTextFile();
var
Strs: Tstrings;
I: Integer;
begin
Strs := TStringList.Create();
try
if OpenDialog1.Execute then
Strs.LoadFromFile(OpenDialog1.FileName);
for i := 1 to Strs.Count - 1 do
Strs.Strings[I] := ConvertUnicodeToStr(Strs.Strings[I]);
CopyFile(PChar(OpenDialog1.FileName), PChar(OpenDialog1.FileName + "~"), false);
Strs.SaveToFile(OpenDialog1.FileName);
finally
Strs.Free();
end;
end;

function TForm1.ConvertUnicodeToStr(Str: String): String;
var
Index: Integer;
SubStr : String;
CharWord: Word;
WideC: WideChar;
WideStr: WideString;
AnsiC: String;
BufStr: String;
begin
Result := "";
BufStr := Str;
repeat
Index := Pos("#", BufStr);
if Index > 0 then
begin
SubStr := Copy(BufStr, Index + 1, 4);
CharWord := StrToIntDef(SubStr, 0);
WideC := WideChar(CharWord);
WideStr := "" + WideC;
AnsiC := WideCharToString(@WideStr[1]);
BufStr := Copy(BufStr, 1 , Index - 1) + AnsiC + Copy(BufStr, Index + 5, Length(BufStr) - Index - 3);
end;
until Index = 0;
Result := BufStr;
end;


---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c