Задача в дэлфи

[shadow55]

Задача вот такая-
создать текстовый файл "s16.txt" содержащий в каждой строке число из соответствующей строки файла "s10.txt" переведенное в шестнадцатеричную систему счисления. В компонент Memo вывести результат такого перевода в виде- число из файла s10.txt(10) = число из файла s16.txt(16).

Помогите пожалуйста.

[Gorychev]

Хотите быстро и без хлопот свяжитесь ICQ : 458723367 сделаю недорого, быстро и с комментариями или выкладывайте свои наработки, помогу советом.

[RUSt88]

var
  F10, F16: TextFile;
  s10, s16: string;
  mass: array of integer;
  cout, i, j: Integer;
begin
  cout := 0;
  s10 := 's10.txt'; s16 := 's16.txt';
  AssignFile(F10, s10);
  Reset(F10);
  AssignFile(F16, s16);
  Rewrite(F16);
  while not EOF(F10) do begin
    Readln(F10);
    inc(cout);
  end;
  SetLength(mass, cout);
  j := cout - 1;
  Reset(F10);
  for i := 0 to j do begin
    Readln(F10, mass[i]);
    // здесь преобразуем десятичное mass[i] в hex[i]
    Writeln(F16, hex[i]);
  end;
  for i := 0 to j do begin
    Memo1.Lines.Add(IntToStr(mass[i]) + ' = ' + VarToStr(hex[i]));
  end;
  CloseFile(F10); CloseFile(F16);
end;

неохота заморачиваться с преобразованием (там пара строк), поищи в темах, где-то я видел это

[shadow55]

Огромное спасибо! Преобразования ща сделаем, спасибо. Одной задачей меньше... ещё 9...

[RUSt88]

не забываем жать на весы