Auslesen der Schnittstelle mit SerialNG

[Delphieinsteiger]

Danke erstmal für die guten Tipps!

also ich kann ja nochmal beschreiben wie mein derzeitiger Stand ist.
also ich lese die Daten vom Logger aus,da bin ich so vorgegangen.

Delphi-Quellcode:

procedure TForm1.RS232RxClusterEvent(Sender: TObject);
begin
case n of
1..255:    begin
                string1:= string1 + rs232.ReadNextClusterAsString;
                label1.Caption:= inttostr(n);
           end;
256..510:  begin
                string2:= string2 + rs232.ReadNextClusterAsString;
                label2.Caption:= inttostr(n-255);
           end;
511..765:  begin
                string3:= string3 + rs232.ReadNextClusterAsString;
                label3.Caption:= inttostr(n-510);
           end;
766..1020: begin
                string4:= string4 + rs232.ReadNextClusterAsString;
                label4.Caption:= inttostr(n-765);
           end;
1021:      begin
                label5.Caption:= ' Speicher voll ';
                label5.Color:= clred;
           end;
end;
n:=n+1
end;

und lasse sie dann in einer memobox darstellen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var m: integer;
begin
memo1.Clear;
for m:=1 to 1023 do
        case m of
        1..255:    Memo1.Text:= Memo1.text + string1[m];
        256..510:  Memo1.Text:= Memo1.text + string2[m-255];
        511..765:  Memo1.text:= Memo1.text + string3[m-510];
        766..1020: Memo1.text:= Memo1.text + string4[m-765];
end;
end;

Das dargestellte sieht dann ungefähr so aus (wobei das noch keinen realen Werte sind weil ich den datenlogger noch vernünftig programmieren muss,soll halt nur ein Test sein.Auch noch keine Angaben zu welchen Zeitpunkt Datum etc. die Daten ausgelesen wurden.

‡‡‡‡‡‡‡‡‡ÃØØ°ØØØØØØØØØØØØØØØØØØØØØØØØ°ØØØØØØØØØØØØ ØØØØØØØØØØØØØØØØ°ØØØ°ØØØØØØØØØØØØØØØØ° ØØØ°ØØØØØØØØØØØ°ØØØØØØØØØØØØØØØØØØ°ØØØØØØØØ°ØØØØØØ ØØØØØØØØØ°ØØØØØØØØØØØØØ° ØØØØØØØØØØØØØØØØØØØØØØ°ØØØØØØØØØØØØØØØØØØØØØØØØØØØ ØØØØØØØ° ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØÀ€ ðxPPðà ø`( �Xàhx°p ؈ˆð¨pˆð¸XX¸Èèø0hxxxð�€€À ¸à€�ÈèÐ�Ø°Ø ¸ Ph €¸�ð°pX@ðxP hX€p` �¸ X (`H0x؈°P € (@X€Ðà@P8иðÈ àø (@à 0àðØèÐà(PÈ0 ØÈ €Ð¨@xؘ0 (ÈÈðà¨H˜Øð00 �@xˆpXhØ(Pðà¨ÀxàÐøøÐhxè ¸ P@ ¸€p`°ð¸XX0ð Ø訸 h€˜x�€øÐøàxˆpXð(ð@ 0 èØP�0€X� (8 0@ð˜è°° h¨è` `H0 8 ø¨ø˜(@ p`Px8pX�x8À˜p8(xh€˜°ØÈPp¨hx˜ ÐÐp ðh¨ ( È8 à °8H˜Hè°ÈÈ ¨8° 8ø È°øøÐøèØ�€ °xx `H0@x è˜ÀÀ°Px¸¨À°Px`˜X@ØH¨Ð¨p`x0ø`x øàÈ°ÀÀ˜˜`Pð@0p8°ØˆÀøàÈ°Høø 8 ¨ ( ð °ÀX Øè H˜èØ �àøè°(``H0@ ø¨Ð˜Øðà˜ØxÈÈxèHà ` øÀÀ`PhXøÀ°PØè€�x`èøø˜8xh 8x�¸à è¨ðØ8 À` àøè � ðx8øXà ØØÈ àø ð¸àh °À (`è˜è°hX˜` ¸à@È(è¨�@PØ ¸XÀ°Èðà�x°˜Ð Ø è ˆx0 8x@à@ P`HàðÈ°Ø° @0 `xð à (8p0(`èè`(@ÐÀȸ °è¨h((ØØØÈààøèð h °˜¨hˆ ÀÀØðà˜` hà È8

das möchte ich dann aber in einem array bringen der auf meiner Form2 so ähnlich aussieht

Delphi-Quellcode:

TestWerte: ARRAY[1..31] of integer=(20,20,15,15,24,26,28,30,35,45,25,45,34,20,20,20,20,
                                        20,20,27,29,25,20,20,20,28,20,20,27,20,20);

und diese Werte werden dann in ein Koordinatensystem übergeben.also die 20 stellt z.B 20° im KO-system da.

und jetzt weiß ich nicht genau weiter,habe etwas von einer Ord() Funktion gelesen aber weiß nicht wie und wo ich die einbringen könnte.Kenne mich mit Delphi halt noch nicht so gut aus,war schon ziemlich froh das meine Oberfläche mit dem KO-System und so weiter fertig ist.jetzt halt das Problem mit den Werten dort hineinbekommen.ich würde mich freuen wenn man mir Tipps geben könnte.

[edit=Phoenix]Leerzeichen eingefügt, wegen des Layouts... Mfg, Phoenix[/edit]