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

Вниз

Как перебросить исходники и форму из Delphi6 в Delphi5?   Найти похожие ветки 

← →
Svetlana   (2002-11-05 14:30) [0]

Как перебросить исходники и форму из Delphi6 в Delphi5?

---

← →
SaS13   (2002-11-05 14:38) [1]

с исходниками наверное особых проблем не будет, а вот с формой придется попотеть... надо будет открыть как текст и сохранить, а в пятых - восстановить - я думаю в этой области надо копать, но вообще неблагодарный труд. А зачем если не секрет?

---

← →
KoluChi   (2002-11-05 15:33) [2]

Преобразовать 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.14;
Скачать: [xml.tar.bz2];

Наверх

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