преобразование числа в hex

[Roof]

ничего не понял - какой вид данные должны принять. И что делает цикл - не понял.
вобщем сделал по-своему - думаю понятно будет. Читай комментарии внимательно. И кинь на форму SaveDialog. Хочешь исходник пришлю.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
     SL: TStringList; ////TStringList  объявляем
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//функция преобразования
function My_mix(s: string): string;
var i:integer;
 ns:string;
begin
 if Length(s) mod 2<>0 then exit;//если в строке нечетное кол-во символов то выход
 ns:='';
 for i:=Length(s)div 2 downto 1 do ns:=ns+Copy(s,i*2-1,2);
 Result:=ns;
end;

//новая кнопка - сохранить
procedure TForm1.Button2Click(Sender: TObject);
var
FName: string;
begin
if SaveDialog1.Execute then
 begin
  FName := SaveDialog1.FileName;
  SL.SaveToFile(FName);
  SL.Clear; //TStringList  очищаем
 end;


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 try
   SL.Free; //TStringList  освобождаем :)
 finally
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:= '';
 Edit2.Text:= '';
 SaveDialog1.Filter:= 'текстовые (*.txt)|*.txt';
 SaveDialog1.DefaultExt:= '.txt';
 SL:= TStringList.Create;//TStringList создаем
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 time: integer;//предполагаю целые числа часов и минут
 str_hex, str_mix, temp: string;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ShowMessage('Введите оба значения цифрами!');
 exit;
end;
 str_hex:= IntToHex(time, 8);
 ShowMessage(str_hex);
 //тут вызываешь функцию преобразования своего.
 str_mix:=  My_mix(str_hex);
 ShowMessage(str_mix);

 //вот тут перед добавлением формируй данные свои в любом виде.

 SL.Add(str_mix); //добавляем в переменную TStringList


end;

end.

Тебе же нужно, получается, кучу строчек сохранить в файл? Вот строчки формируй по своему правилу прямо перед SL.Add(); А потом в скобки записывай - то что сформировал (тип string);

[fize]

вот для наглядности во вложении. цикл добавляет перед hex нули.
осталось только сделать что бы дописывалось-
[3]
0=и тут число с нулями и hex на конце
вроде как ini функцию можно использовать-
ini.WriteString(section,key,value)
но вот разобраться не могу

[Roof]

[3] - пишется один раз во всем файле или перед каждой строкой?
и сколько нолей перед числом ставить?
73-length(str_mix) - столько нолей ставить перед числом??

[fize]

Сообщение от Roof

[3] - пишется один раз во всем файле или перед каждой строкой?
и сколько нолей перед числом ставить?
73-length(str_mix) - столько нолей ставить перед числом??

в этом файле ничего больше не будет так что один раз пишется. 73 это длина всей строки от 0= следовательно 71

[Roof]

кусок кода - думаю поймешь.

procedure TForm1.Button1Click(Sender: TObject);
var
 time, i: integer;//предполагаю целые числа часов и минут
 str_hex, str_mix, str_last: string;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ShowMessage('Введите оба значения цифрами!');
 exit;
end;
 str_hex:= IntToHex(time, 8);
 ShowMessage(str_hex);
 //тут вызываешь функцию преобразования своего.
 str_mix:=  My_mix(str_hex);
 ShowMessage(str_mix);

 //вот тут перед добавлением формируй данные свои в любом виде.
 SL.Add('[3]');
 str_last:= '0=';
 for i := 1 to 71 do
   str_last:= str_last + '0';
 str_last:= str_last + str_mix;
 SL.Add(str_last); //добавляем в переменную TStringList


end;

Это то или опять промахнулся я?

[fize]

procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
 str_hex, str_mix, str_last,temp:string;
 time: integer;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ListBox1.Items.Add('Ââåäèòå îáà çíà÷åíèÿ öèôðàìè!');
 exit;
end;
 str_hex:= IntToHex(time, 8);
 str_mix:=  My_mix(str_hex);
 temp:=(str_mix);
 SL.Add('[3]');
 str_last:= '0=';
 for i:=1 to 73-length(str_mix) do temp:='0'+temp;
 ListBox1.Items.Add(temp);
if SaveDialog1.Execute then
ListBox1.Items.SaveToFile(Savedialog1.FileName+'.txt')

end;

не работает. как сохранять из переменной temp?
p.s походу промахнулся. может проще ini задействовать как писал выше?

[Roof]

Несколько строк - [3] и твою длинную - за раз не сохранишь из простого string. Нужен StringList. Держи исходник в архиве.
Зачем тут ini - честно сказать не понимаю. Все реализуется средствами делфи - без ini. Или я тебя совсем перестал понимать. Запускай исходник.

Вообще-то и без StringList можно...

без StringList - можно, прокосячил чуток. Пару строк поправить. Мы вообще Пришли к нужному результату-то?

[fize]

Сообщение от Roof

Несколько строк - [3] и твою длинную - за раз не сохранишь из простого string. Нужен StringList. Держи исходник в архиве.
Зачем тут ini - честно сказать не понимаю. Все реализуется средствами делфи - без ini. Или я тебя совсем перестал понимать. Запускай исходник.

Вообще-то и без StringList можно...

спасибо все работает.
а как без StringList сделать?

[Roof]

Вот поправил без StringList сделал.

[fize]

Сообщение от Roof

Вот поправил без StringList сделал.

спасибо тебе. то что нужно.