Forum: Programmieren allgemein
by Klaus01,
23. Feb 2006
function TForm1.GetString():String;
var
F1: TextFile;
Text: String;
begin
AssignFile(F1, sText1);
{$I-}
Reset(F1);
{$I+}
if IOResult = 0 then
Forum: Programmieren allgemein
by Klaus01,
23. Feb 2006
.. das hängt wohl davon ab in welchem Modi das andere Programm die Datei geöffnet hat.
Wenn die andere Datei geöffnet ist, kannst Du aber immer noch ein Kopie davon erstellen
und aus dieser lesen.
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
23. Feb 2006
uups hab auf etwas anderes geantwortet.
Forum: Programmieren allgemein
by Klaus01,
22. Feb 2006
Hier der angepasste Code vom alzaimar
wenn Du STX als Startwert nimmst, wird STX auch in der Checksummer auftauchen.
Grüße
Klaus
Function CheckSum (Const aString : String) : String;
Var
i : Integer;
Forum: Programmieren allgemein
by Klaus01,
22. Feb 2006
in dem Code vom Sharky werden die Leerzeiche auch mit XOR verknüpft, denn
sie werden ja nirgends ausgefiltert.
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
22. Feb 2006
uups
result := IntToHex(dummy,2);
ein Byte liefert zwei Digits zurück.
Grüße
Klaus
Forum: Programmieren allgemein
by Klaus01,
21. Feb 2006
function checksum(SNr:String):String;
VAR
i:Byte;
dummy:Byte;
begin
dummy:=ord(SNr XOR ord (SNr);
for i:=3 to length(SNr) DO
begin
dummy:=dummy XOR ord(SNr);
Forum: Programmieren allgemein
by Klaus01,
21. Feb 2006
Warum vorher unbedingt in Hex umwandeln?
Ansonsten wirst Dir vielleicht dies hier weiterhelfen.
ord(Zeichen1) XOR ord(Zeichen2)
Grüße
Klaus