| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как перебросить исходники и форму из Delphi6 в Delphi5? [D5, D6, Win95/98]

Svetlana ©   (2002-11-05 14:30:00) 

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

---

KoluChi   (2002-11-05 15:33:00) [1]

Преобразовать 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;


---

SaS13   (2002-11-05 14:38:00) [2]

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

---

Наверх