|
 Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
 Nya
tips
 Lägg
till tips
 Delphilänkar
 Gästbok
|
|
|
FuzzyDizzie » Delphi » Forum
|
|
 |
|
|
C-kod till Delphi kod
2009-03-15 09:56 - BP [Registrerad 2005-04-22]
|
Hej.
Finns det någon som skulle kunna göra om nedanstående C-kod till Delphi-kod?
typedef unsigned char uint8_t;
/**
* pmsg - Pointer to message
* msglen - Length of message
*/
uint8_t CalculateLrc(const uint8_t* pmsg, unsigned msglen)
{
uint8_t lrc = 0; // LRC initially set to zero
while (msglen--) // For each byte in message calculate:
{
lrc ^= *pmsg++; // lrc = lrc XOR message_byte
}
return lrc;
}
|
|
|
|
|
|
C-kod till Delphi kod
2009-04-08 03:12 - Andreas [Registrerad 2007-08-09]
|
Hej, BP!
Jag antar att detta är en _väldigt_ enkel (och snabb) checksumme-beräkning av en sträng. Som börjar på 0 och värdet XOR:as för varje tecken med dess ASCII-kod. Om jag tolkat koden rätt så borde en Delphi-variant se ut så här:
function CalcLRC(S: string): Integer;
var X: Integer;
var Value: Integer;
begin
Value := 0;
for X := 1 to Length(S) do begin
Value := Value xor Ord(S[X]);
end;
Result := Value;
end;
MVH,
/ Andreas Jönsson.
|
|
|
|
|
|
C-kod till Delphi kod
2009-04-12 17:04 - BP [Registrerad 2005-04-22]
|
Hej.
Jag hittade själv "översättningen".
Men tack i alla fall.
BP
|
|
|
|
|
|
|
|