Frage zu GUID

[Bent1995]

Hallo,


Ich habe mir anhand dieses Threads ein Programm zusammengestellt welches einen Energiesparplan einstellt... Jedoch wollte ich nicht das der User diesen manuell aussuchen muss sondern dass ich einen vorgebe und der dann aktiviert wird... die original Procedure sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var active_guid : TGUID;
begin
  active_guid := StringToGuid(lb1.Items[getSel()]);
  if(not setScheme(active_guid)) then
    showmessage('Fehler');
end;

ich hab das daraus gemacht:

Delphi-Quellcode:

  active_guid := {A181308-3541-4FAB-BC81-F71556F20B4A};
  if(not setScheme(active_guid)) then
    showmessage('Fehler');

Jedoch bekomme ich folgenden Fehler:

(Hiernach makiert er: {A181308-3541-4FAB-BC81-F71556F20B4A};)

[DCC Error] Unit1.pas(418): E2029 Expression expected but ';' found

Ich habe kein Plan warum...

könnt ihr mir weiterhelfen?

[DeddyH]

In Delphi ist alles zwischen { und } ein Kommentar (ausgenommen Compiler-Direktriven). Versuch es mal so:

Delphi-Quellcode:

active_guid := StringToGUID('{A181308-3541-4FAB-BC81-F71556F20B4A}');
  if(not setScheme(active_guid)) then
    showmessage('Fehler');

[Bent1995]

Zitat von Bent1995:

Hallo,


Ich habe mir anhand dieses Threads ein Programm zusammengestellt welches einen Energiesparplan einstellt... Jedoch wollte ich nicht das der User diesen manuell aussuchen muss sondern dass ich einen vorgebe und der dann aktiviert wird... die original Procedure sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var active_guid : TGUID;
begin
  active_guid := StringToGuid(lb1.Items[getSel()]);
  if(not setScheme(active_guid)) then
    showmessage('Fehler');
end;

ich hab das daraus gemacht:

Delphi-Quellcode:

  active_guid := {A181308-3541-4FAB-BC81-F71556F20B4A};
  if(not setScheme(active_guid)) then
    showmessage('Fehler');

Jedoch bekomme ich folgenden Fehler:

(Hiernach makiert er: {A181308-3541-4FAB-BC81-F71556F20B4A};)

[DCC Error] Unit1.pas(418): E2029 Expression expected but ';' found

Ich habe kein Plan warum...

könnt ihr mir weiterhelfen?

Nehm alles zurück hab die Lösung selber gefunden:

Erst mach ichn string draus, und wandel den dann in n Guid um:

Delphi-Quellcode:

  active_guid := StringToGuid ('{A1841308-3541-4FAB-BC81-F71556F20B4A}');
  if(not setScheme(active_guid)) then
    showmessage('Fehler');