jungens, hilfe, nicht alles auf einmal, das ist zuviel fuer mich
also ich komme ueberhaupt nich mehr mit, deswegen erklare ich jetz nochmal was ich machen, will.
ich glaube ihr versteht mich falsch, das ganze ist eigentlich sehr einfach
also, ich hab ein array of byte, dort stehen dezimale bytewerte drin,
diese stelle ich in der procedure
ausgabe in einem stringrid dar mit ner for next und stringgrid.cells [x,y]:=char("arraywert");
if x in charset[i] then stringgrid.cells [x,y]:=char("arraywert");
da ich aber verschiedene formate bei der darstellung will, z.b Bigendien,
ascii 7-bit oder macintosh
muss ich verschieden charsets haben, diese brauchen nur einmal definiert werden und sollen nicht geaendert werden
z.b in formcreate:
Delphi-Quellcode:
var
charset1,charset2,charset3: set of byte;
...
begin
charset1:=[46..255]; //sets initialisieren
charset2:=[21..200];
charset3:=[0..12];
jetz hab ich ein menu mit verschiedenen menupunkten
die routinen sehen so aus
Delphi-Quellcode:
tform1.menupunkt1.click
begin
i:=0; // charset 0 setzen
ausgabe // stringgrid mit geaenderten zeichsatz fuellen
end;
tform1.menupunkt2.click
begin
i:=1; // charset 1 setzen
ausgabe // stringgrid mit geaenderten zeichsatz fuellen
end;
will also nur das ensprechen charsetz auswaehlen, und rufe dann die procedure ausgabe nochmal auf um den gridinhalt zu aktualisieren