Przetłumaczcie pls... Delphi to BCB

0

Witam,

Czy mógłby ktos przetłumaczyc ten kod:

uses ComObj; 

// I. 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Caption := CreateClassID; 
end; 

// II. 
function GenerateGUID: string; 
var 
  GUID: TGUID; 
begin 
  if CreateGUID(GUID) = S_OK then Result := GUIDToString(GUID); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Caption := GenerateGUID; 
end; 

//oczywiście do BCB!! :-)
Copyright by Wotek

0

O błagam :| Sorry, ale co w tym kodzie sprawia Ci trudność w przetłumaczeniu??? :|

zamień := <font color="blue">na</span> =
= <font color="blue">na</span> ==
if aaa then bbb; <font color="blue">na</span> if (aaa) bbb;

i zostają 2 delkaracje:
zmiennej:
var
GUID: TGUID;
<font color="blue">na</span>
TGUID GUID;

i funkcji:
function GenerateGUID: string;
<font color="blue">na</span>
String GenerateGUID()

0

Marooned miałes racje [wstyd]

dzięki za pomoc:-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1