unit Unit1;
interface
uses
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}// Include form definitions
// A small procedure
procedure InLineProc;
begin
ShowMessage('Hello World');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Call our little in line procedure
InLineProc;
end;
end.(24-10-2022, 05:31 PM)blackhole كتب : [ -> ]وضعتها تحت public عطاتني خطا
public
function StrToHex(S: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to length (S) do
Result:= Result+IntToHex(ord(S[i]),2);
end;
{ Public declarations }
end;
![[صورة: 669125648.jpg]](https://www7.0zz0.com/2022/10/24/18/669125648.jpg)
للاسف مازال المشكل كما في الصورةresult := result+inttohex(ord(s[i]),2);unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TForm1 = class(TForm)
private
function StrToHex(S: string): string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.StrToHex(S: string):string;
var i: integer;
begin
Result := '';
for i := 1 to length(s) do
Result := Result + IntToHex(ord(s[i]), 2);
end;
end.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TForm1 = class(TForm)
private
public
end;
var
Form1: TForm1;
implementation
function StrToHex(S: string):string;
var i: integer;
begin
Result := '';
for i := 1 to length(s) do
Result := Result + IntToHex(ord(s[i]), 2);
end;
end.