чтение данных из файла в array of UTF8String

[vova65]

Здравствуйте!

помогите пожалуйста разобраться с ситуацией!

test:array of UTF8String;
...
fHandle := CreateFile('c:\test.z', Generic_read, 0, Nil, open_existing, 0, 0);

setLength(test,Trunc(GetFileSize(fHandle,nil)/20));

ReadFile(fHandle, test[0], GetFileSize(fHandle,nil), z, 0);

CloseHandle(fHandle);

допустим у нас есть строки UTF8String в файле test.z всегда равные 20 байтам.. не больше.. а если меньше то остальная часть до 20 заполняется 00 байтами

собственно вопрос..
Как мне считать эти строки с файла в массив test:array of UTF8String ? тойсть..
чтоб было
test[0] = 20 байт UTF8String
test[1] = 20 байт UTF8String
test[2] = 20 байт UTF8String
...

заранее Большое Спасибо!!

[Stilet]

test[0] = 20 байт UTF8String

SetLength(test[0],20*2);
ReadFile(fHandle, @test[0][1], 40, z, 0);

Если не ошибаюсь.

[vova65]

спасибо!!! работает, вот только вместо

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

ReadFile(fHandle, @test[0][1], 40, z, 0);

как я понял нужно использовать

ReadFile(fHandle, test[0][1], 40, z, 0);

в ходе работы возник еще один вопрос с этой оперы..

showmessage(test[0]+' '+test[1]);

почему выводится только test[0] ?
как добиться чтоб вывело test[0] и test[1] ?


разобрался..
оказывается строка не должна содержать в конце много 00 байтов