Einzelnen Beitrag anzeigen

roadrunner-S51

Registriert seit: 28. Mai 2010
53 Beiträge
 
Delphi 2009 Professional
 
#1

chr Funktion in Delphi 2009

  Alt 28. Mai 2010, 08:43
Hallo, bin neu hier, deswegen entschuldigt bitte falls ich hier nicht im richigen Bereich für dieses Thema bin.

Also ich schreibe gerade meine Bachelor-Arbeit und muss ein Delphiprogramm, erstellt in Turbo Delphi auf Delphi 2009 "umrüsten". Das ist soweit kein großes Problem, außer die Kommunikation über den COM-Port. Dort wird die chr-Funktion verwendet, welche, soviel habe ich nun schon gelernt, statt einem char ein Unicode-Zeichen zurückgibt.

Könnte mir also bitte jemand helfen die folgenden Code-Zeilen funktionsfähig umzubauen? Ich komm da irgendwie nicht auf nen grünen Zweig...

UsedComm[3]:=chr($30+Value);
H:=CreateFile(UsedComm,GENERIC_READ or GENERIC_WRITE, 0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);


Die Fehlermeldung von Delphi lautet:
[DCC Fehler] HESerial32.pas(104): E2010 Inkompatible Typen: 'AnsiChar' und 'Char'

Hier der Code ringsum das Problem:
var
UsedComm : array[0..12] of ansichar = 'COMx'#0#0;
...
begin
...
if Value<10 then
begin
UsedComm:='COMx'+#0;
UsedComm[3]:=chr($30+Value);
end
else
begin
UsedComm:='\\.\COMx'+#0+#0;
UsedComm[7]:=chr($30+(Value div 10));
UsedComm[8]:=chr($30+(Value mod 10));
end;
end;


Schonmal Danke!
  Mit Zitat antworten Zitat