Serial......

[Zero]

Wieso kan ich keine zwei Serials Vergleiche,...... eine klappt ohne Probleme kann mir da jemand helfen

var
SerialNum, a, b : DWord;
buff : array[0..255] of char;
Result : String;
begin
If GetVolumeInformation('c:\', buff, SizeOf (buff), @SerialNum, a, b,nil, 0) then
begin
Result:=inttostr(SerialNum);
if Result = (intToStr(2900256299)) or Result =(intToStr(275453679)) // Wieso klappt das hier nicht das Programm gibt hier den Fehler aus then
begin
showmessage(Result +' Serial Gefunden');
end
else
begin
showmessage('Programm konnte Serial nicht finden. ');
Form2.Close;

end;
end
else
begin
Result:='';
Form2.Close;
end;
end;

[Christian Seehase]

Hallo Zero,<br>
<br>
Result ist innerhalb von Funktionen eine von Delphi vordefinierte Variable.<br>
Eventuell kommt das Programm dadurch ins trudeln, dass Du selber eine solche angelegt hast.<br>
Welcher Fehler tritt den an der genannten Stelle überhaupt auf?<br>
Wenn ich mir den Code so ansehe, kann ich auch nicht erkennen, wozu Du Result überhaupt deklariert hast.<br>
SerialNum könntest Du doch auch direkt vergleichen.<br>
<br>
Ciao<br>
Chri

[Zero]

könntest du mir mal deinee-mail geben.. dann würde ich dir das mal genau schicken.. das wäre super.. Grüsse Zero.. besten Dan

[Zero]

Der Fehler heisst....[Fehler] Unit2.pas(58): Operator ist auf diesen Operandentyp nicht anwendbar

Grüsse Zer

[Robert Marquardt]

Der Felhler ist viel schlichter.<br>
if (a = b) or (c = d) then<br>
Die Klammerung des ausdrucks ist falsch

[Zero]

ok teste ich gleich mal aus.. bin im Moment auf der Arbeit.. da geht das nicht so.. vielen dank schonmal, meld emich dann nochma

[Christian Seehase]

Hallo Robert,<br>
<br>
Du hast recht. Das ist mir bei den ganzen Klammern gar nicht mehr aufgefallen <br>
Aber ich bleibe dabei: Result als Variable zu deklarieren finde ich unglücklich.<br>
(zudem es in dem Beispiel, ausser vielleicht aus Gründen der Übersichtlichkeit, überflüssig ist).<br>
<br>
Ciao<br>
Chri

[Zero]

Alles gut.. es klappt .. danke an alle.......

Grüsse Zer