Процедурки конвертации файлов WinToDos DosToWin - 10 Января 2013

Главная » 2013 » Январь » 10 » Процедурки конвертации файлов WinToDos DosToWin

09:39 Процедурки конвертации файлов WinToDos DosToWin
Процедурки конвертации файлов WinToDos DosToWin uses Classes,Windows; function DosToWin(St: string): string; // из Dos в Win кодировку var Ch: PChar; begin Ch := StrAlloc(Length(St) + 1); OemToAnsi(PChar(St), Ch); Result := Ch; StrDispose(Ch) end; Function WinToDos(const S: string):string; var NewStr: string; begin SetLength(NewStr, Length(S)); Windows.CharToOem(PChar(S), PChar(NewStr)); result:=NewStr; end; procedure CvWinToDos(Fl1,fl2:string); var Txt:TStringList; begin txt:=TStringList.Create; txt.LoadFromFile(Fl1); txt.Text:=WinToDos(txt.Text); txt.SaveToFile(Fl2); txt.Free; end; procedure CvDosToWin(Fl1,fl2:string); var Txt:TStringList; begin txt:=TStringList.Create; txt.LoadFromFile(Fl1); txt.Text:=DoSToWin(txt.Text); txt.SaveToFile(Fl2); txt.Free; end;
1 2 3 4 5 Просмотров: 2647 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки