PLANTAGE :S

Question

'lut all, j'ai essayé de créé une boucle dans une autre, qui permettrait de générer un tableau, or, cela ne marche pas...je lance, et ca plante!!!

que faire???

ps : voici le code: texte est un champ mémo i et j des spinedit et k un champ TEdit

procedure Tmonnew.Button19Click(Sender: TObject);
var nbrline,nbrcol,i,j:integer;
var k:string;
begin
nbrcol:=1;
i:=SpinEdit1.value;
j:=SpinEdit2.value;
k:=Edit9.text;
texte.Text:=texte.text + '';

repeat
texte.Text:=texte.text + '----
';

repeat
texte.text:=texte.text + ', ';
nbrcol:=nbrcol + 1;
until (nbrcol = i);

texte.Text:=texte.text + '';
nbrline:=nbrline + 1;
until (nbrline = j);
texte.text:=texte.Text + '
';
end;

M@x ---> Go on www.metrox.be

cs_Bestiol · Answer

Essaye avec des boucles for ce sera certainement mieux, non ?!

[mailto:bestiol@cario.fr Bestiol.]

cs_Metrox · Answer

ok, je v essayer merci!
M@x ---> Go on www.metrox.be

cs_Bestiol · Answer

Y a pas de quoi !!

Et sinon tu peux peut-être nous préciser quelques petites choses... comme par exemple un message d'erreur éventuel, la manière dont ça plante...

Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]

PLANTAGE :S

3 réponses

Votre réponse

Discussions similaires