Cześć mam pytanie jak mogę przekonwertować tablice statyczną "byte" array[0..2048] of byte na Stringa ??

- Rejestracja:ponad 21 lat
- Ostatnio:ponad 7 lat
Chodzi ci o przepisanie tablicy byte do tablicy string? jesli tak to najprosciej chyba tak:
var
bajt : array[1..2048] of byte; //tablica byte;
tekst : array[1..2048] of string; //tablica string;
procedure konwertowanie;
var i:integer;
begin
for i:=1 to 2048 do tekst[i]:=inttostr(bajt[i]);
end;

- Rejestracja:ponad 22 lata
- Ostatnio:ponad 9 lat
<font color="green">var
bajt : array[1..2048] of byte; //tablica byte;
tekst : array[1..2048] of string; //tablica string;
procedure konwertowanie;
var i:integer;
begin
for i:=1 to 2048 do tekst[i]:=inttostr(bajt[i]);
end;</span>
Nie - string już jest tablicą typu Char, nie trzeba tworzyć z niego tablicy..
Pisane "od ręki" :-/ :
var
bajt : array[1..2048] of byte;
s: string;
i : Integer;
begin
s := '';
for i := Low(bajt) to High(bajt) do
s := s + String(Chr(Byte(bajt[i]))); // powinno działać :)
end;
Dokładnie chodzi mi że pisze programik do odczytywania informacji z rejestru windows. Wysztko potrawie odczytać oprócz zapisu binarnego, ktos mi wczesniej zaproponował że odczyd mogę odczytac za pomoca tablicy binarnej
//
var
Reg : Tregister;
Buffor: array[0..2048] of byte;
begin
..
Reg.ReadBinaryData(nazwaklucza,buffor,SizeOf(buffor));
..
//
Iteraz wynik chciałbym przenies w formie stringa to komponentu TListView

- Rejestracja:około 20 lat
- Ostatnio:prawie 19 lat
- Postów:7
Linix napisał(a)
Dokładnie chodzi mi że pisze programik do odczytywania informacji z rejestru windows. Wysztko potrawie odczytać oprócz zapisu binarnego, ktos mi wczesniej zaproponował że odczyd mogę odczytac za pomoca tablicy binarnej
//
var
Reg : Tregister;
Buffor: array[0..2048] of byte;
begin
..
Reg.ReadBinaryData(nazwaklucza,buffor,SizeOf(buffor));
..
//Iteraz wynik chciałbym przenies w formie stringa to komponentu TListView
Dołączam do pytania.... Jak "przetłumaczyć" ReadBinaryData

- Rejestracja:ponad 21 lat
- Ostatnio:ponad 6 lat
Linix napisał(a)
Dokładnie chodzi mi że pisze programik do odczytywania informacji z rejestru windo...Iteraz wynik chciałbym przenies w formie stringa to komponentu TListView
To zmienai postac rzeczy, takie dane, zawierajace wartosci 0-255 nie przedstawia sie jako string, ktory gdzies tam wyswietlamy bo nie wszystkie wartosci da sie wyswietlic. Musisz to wyswietlic jako kolejne liczby (zwykle robi sie to w hex'e), wiec petla i IntToStr / IntToHex.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.