[JustProSkill]

Есть кусочек кода на другом языке. Мне нужно так же открыть этот файл в делфи и загрузить в Мемо.

Код:

    public static int[] _lut;

    public static unsafe void Init() // to load a table
    {
        _lut = new int[32487834];
        FileInfo lutFileInfo = new FileInfo("HandRanks.dat");
        if (!lutFileInfo.Exists)
        {throw new Exception("Handranks.dat not found");}

        FileStream lutFile = new FileStream("HandRanks.dat", FileMode.Open, FileAccess.Read, FileShare.ReadWrite, 4096);

        byte[] tempBuffer = new byte[32487834 * 4];
        lutFile.Read(tempBuffer, 0, 32487834 * 4);

        fixed (int* pLut = _lut)
        { Marshal.Copy(tempBuffer, 0, (IntPtr)pLut, 32487834 * 4);}
        tempBuffer = null;
    }

Админ: Пользуемся тегами для оформления кода!

[@Rafa3L]

Код:

const
fn = 'HandRanks.dat';
procedure TForm1.Button1Click(Sender: TObject);
begin
 if FileExists(fn) then
  Memo1.Lines.LoadFromFile(fn)
  else 
   ShowMessage(fn + ' not found');
end;

4250

[JustProSkill]

я уже так пробовал)) ничего не вышло

[Kailon]

Содержимое файла можно посмотреть?

[JustProSkill]

Нельзя, но как я понял, там должна быть информация по заранее просчитанным исходам в покере рука vs диапазон для определения её эквити (чтобы программа могла работать быстрее, не рассчитывала результат(как сделал я) а искала в этом файле)

[Страдалецъ]

Загрузить то его можно как угодно. Видимо он содержит спецсимволы, которые мемо отказывается показывать, он же для текстовых данных предназначен. Вопрос, что вы делать дальше будете с этими данными?

Код:

Var
  F: File;
  Lut: Pointer;
begin
 AssignFile(F, 'H:\Downloads\1\wand.dat');
 Reset(F, 1);
 GetMem(Lut, SizeOf(F));
 BlockRead(F, Lut^, SizeOf(Lut));
//Содержимое будет в переменной Lut, но что дальше?
 CloseFile(F);
end;