Как в StatusBar-е писать по-русски?

← →
tytus © (2003-07-26 10:00) [0]

Привет Всем. При выполнении проседуры:
var st:PChar;
begin
GetLogicalDriveStrings(1,st);
statusBar1.Panels.Items[0].Text:=StrPas(st);
в статусбаре пишеться что-то вроде ио8ьяГ<A3<ШЖ...

← →
KSergey © (2003-07-26 10:22) [1]

А буфер кто выделять будет? Хотя бы под тот 1 байт, который указан в первом параметре?

← →
Anatoly Podgoretsky © (2003-07-26 10:54) [2]

Зачем тебе вообще PChar, многие делают с ним так много ошибок, используй String
SetLength(st,размер);
GetLogicalDriveStrings(размер,PChar(st));
statusBar1.Panels.Items[0].Text:=st;

← →
default © (2003-07-26 11:01) [3]

нифига документацию не читаю
даже когда не "пашет"
сразу бегут на форум блин

← →
tytus © (2003-07-26 11:11) [4]

>Anatoly Podgoretsky
Спасибо, сработало, но почему-то пишет только а:\, хотя пишу SetLength(st,20)...

>KSergey
В хелпе сказано о буфере, но как его "выделять"? var st:Pointer или var st:^PChar? Пробывал последнее - пишет m^ m^ ????????

← →
KSergey © (2003-07-26 11:16) [5]

>KSergey
В хелпе сказано о буфере, но как его "выделять"?

Это сказано в хелпе по языку Delphi.

Опять документацию не читаешь, в результате возвращается блок ASCIZZ строк, заканчивает блок пустая строка
А ней даже пример приведен!
c:\<null>d:\<null><null>
Нельзя применять функции работы со строками для подобных строк, тебе надо самостоятельно извлекать из строки части, например с помощью той же PChar, последовательно смещая указатель на следующую часть или использовать функцию Copy/
И обязательно анализировать результат функции GetLogicalDriveStrings, она возвращает длину реальных данных в буфере. Эту длину нужно использовать при копировании частей. Кстати 20 байт явно не достаточно, надо как минимум 32*4, тогда результат гарантированно поместится в буфер и не будет ошибки.

KSergey © (26.07.03 11:16)
Это уже сделано в SetLength, но автор наверно не знает данного языка программирования, даже в азах.

Как в StatusBar-е писать по-русски? Найти похожие ветки