je cherche a recuperer une ligne ecrite sur l'ecran (en mode texte) e faire une comparaison...on m'a donné ça mais ça marche pas:

s:='';
     pos:=Y*160+X*2;
     for i:=0 to count-1 do
         s:=s+char(Mem[$B800:pos+i*2]);

 
avec x et y les coordonnees du debut de la ligne a lire, et count le nombre de caractere a lire...si vous voyez un bug ou autre, si vous avez une idée...je suis déséspéré

j'insiste  
meme si un samedi avec un temps pareil j'ai peu de chance...

Ce que j'aime quand je poste une question ici, c que je finis toujours par trouver la reponse moi-meme 2 jours plus tard...merci quand meme

J'avais bien vu ton topic mais je ne savais absolument pas t'aider.
Tu peux toujours poster la réponse pour si jamais quelqu'un a le même problème et fait une recherche

je comptais le faire dès que je l'aurais mise sous forme finale
voila la fonction:
function getline(x,y,len:byte):string;
         var temp:string;
             pos:integer;
             i:byte;
begin
     temp:='';
     pos :=(y-1)*160+(x-1) * 2;{position du premier octet}
     for i:=0 to len-1 do {pour une chaine de len caracteres}
         temp := temp + Char(Mem[$B800: pos+i*2]);{lecture de 1 octet sur 2-> ceux codant le caractere}
     getline:=temp;
end;
 
li la ligne a partir des coordonnées x,y sur len caracteres

[jfdsdjhfuetppo]--Message édité par BigBrother le 02-06-2002 à 15:58:02--[/jfdsdjhfuetppo]