LA LECTURE ET LA CONVERSION DE SOURCES EPS SOIT EPS ENCAPSULÉ AU FORMAT DU LOGIC

Messages postés
1293
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
- - Dernière réponse :  denisbertin - 15 mai 2013 à 11:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/55131-la-lecture-et-la-conversion-de-sources-eps-soit-eps-encapsule-au-format-du-logiciel-denis-draw

Afficher la suite 
Je vais tout de même vous dire pourquoi je ne vous envoie pas les unités dépendantes, car si je les ajoute, elles mêmes ces unités inclus d'autre modules, et cela serait très long à moins de tout vous envoyer mais ainsi je ne pourrait plus le vendre mais vous le donner ce qui serait mieux.
sp40
Messages postés
1293
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
8 -
Pitié... Arretez le !!!!

:)
procedure box(hwindow:hwnd;message:pchar);
begin
messagebox(hwindow,message,'vincent',mb_ok);
end;
const Lecture = '301.663 298.275 mo';

{function last_car_is(aStr:pchar):boolean;
var LineLen,aStrLen:Integer; p:pchar;
begin
aStrLen := strlen(aStr);
LineLen := Length(Lecture);
if LineLen < aStrLen then
Result := False
else
begin
p:=@lecture[succ(LineLen-aStrLen)];
while aStr^<>#0 do
begin
if p^<>astr^ then
begin
result:=false;
exit;
end;
inc(astr);
inc(p);
end;
result:=true;
end;
end;}

{function last_car_is(s:string):boolean;
var i,longeur,position:integer;
longeur_verifier:integer;
resultat:boolean;
begin
resultat:=true;
longeur_verifier:=length(s);
longeur:=length(lecture);
if longeur<longeur_verifier then begin last_car_is:=false; exit end;
for i:=1 to longeur_verifier do
begin
position:=longeur-longeur_verifier+i;
if lecture[position]<>s[i] then
resultat:=false;
end;
last_car_is:=resultat;
end;}

function last_car_is(const aStr:string):boolean;
var LineLen, aStrLen: Integer;
begin
Result := False;
aStrLen := Length(aStr);
LineLen := Length(Lecture);
if LineLen < aStrLen then
Exit; Result :aStr PChar(@Lecture[LineLen - aStrLen + 1]);
end;

procedure TDisque_window.Occupation_du_processeur;
var i,time:integer;
begin
time:=gettickcount;
for i:=0 to 10000000 do
begin
last_car_is(' mo');
end;
box(self.hwindow,pchar(inttostr(gettickcount-time)));
end;
const Lecture = '301.663 298.275 mo';

procedure box(hwindow:hwnd;message:pchar);
begin
messagebox(hwindow,message,'vincent',mb_ok);
end;

{function last_car_is(aStr:pchar):boolean;
var LineLen,aStrLen:Integer; p:pchar;
begin
aStrLen := strlen(aStr);
LineLen := Length(Lecture);
if LineLen < aStrLen then
Result := False
else
begin
p:=@lecture[succ(LineLen-aStrLen)];
while aStr^<>#0 do
begin
if p^<>astr^ then
begin
result:=false;
exit;
end;
inc(astr);
inc(p);
end;
result:=true;
end;
end;}

{function last_car_is(s:string):boolean;
var i,longeur,position:integer;
longeur_verifier:integer;
resultat:boolean;
begin
resultat:=true;
longeur_verifier:=length(s);
longeur:=length(lecture);
if longeur<longeur_verifier then begin last_car_is:=false; exit end;
for i:=1 to longeur_verifier do
begin
position:=longeur-longeur_verifier+i;
if lecture[position]<>s[i] then
resultat:=false;
end;
last_car_is:=resultat;
end;}

function last_car_is(const aStr:string):boolean;
var LineLen, aStrLen: Integer;
begin
Result := False;
aStrLen := Length(aStr);
LineLen := Length(Lecture);
if LineLen < aStrLen then
Exit; Result :aStr PChar(@Lecture[LineLen - aStrLen + 1]);
end;

procedure TDisque_window.Occupation_du_processeur;
var i,time:integer;
begin
time:=gettickcount;
for i:=0 to 10000000 do
begin
last_car_is(' mo');
end;
box(self.hwindow,pchar(inttostr(gettickcount-time)));
end;
sp40
Messages postés
1293
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
8 -
Cirec, tu sors !

:D