Delphi заготовки

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

{ С клавиатуры вводятся записи, содержащие наименование игрушки и цену.
Напеча-тать список игрушек, упорядоченный по возрастанию цен. Добавить в список новый элемент.
}
  type
    TAverCode=record
        name:string; // название
        Price:real; {цена игрушки}
    end;
    TArray = array of TAverCode;
 var
   a:TArray;


{для перекодировки симовлов
взято с сайта
http://netsoftware.ucoz.ru/news/wintodos_dostowin_perekodirovka_simovlov_cherez_mozhul_windows/2012-11-26-106
}
function WinToDos(St: string): string; // перекодировка из Win кодировки в Dos
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  AnsiToOem(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch) ... Читать дальше »

uses windows;


function WinToDos(St: string): string; // из Win в Dos кодировку
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  AnsiToOem(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

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;