Discussion :

[K20]

Voilà, ma question est surement très idiote mais je bloque dessus depuis une heure

J'ai un fichier texte de cette forme :

Eau
14 15
Or
16 16

Je voudrais savoir comment récupérer mes chiffres sépéramément ?

J'ai un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
readln(Mon_txt,var);
readln(Mon_txt,x,y);

Mais mon x contient 14 15 puis 16 16 au lieu de juste 14 puis 16

Comment faire ?

Merci d'avance !

[Raylemon]

regarde ici
Sinon il devrait y avoir moyen de faire un code plus léger en jouant avec la fonction Pos()

[Nono40]

Quels sonts les types de X et Y ?

[K20]

Dans mon fichier ba un string ^^ et au final dans mon programme des entiers

[petitcoucou31]

salut

tu peu faire comme çà par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.extrait(ligne:string; var Nb1:integer ;  var Nb2:integer);
var P:integer;
    tmp:string;
begin
    P:=pos(' ',ligne);
    tmp:=ligne;
    delete(ligne,P,length(ligne));
    delete(Tmp,1,P);
    Nb1:=StrToInt(ligne);
    Nb2:=StrToInt(tmp);
end;

bye

[K20]

En fait, j'ai tout mis en colonne pour éviter de me galérer ...

Merci quand même, je retient si j'en ai besoin une prochaine fois