Discussion :

[baddom]

j'ai un edit1 qui me sert a la saisie.Ces information doivent apparaitrent dand des edit2 a edit x.Comment faire pour que l'information saisie dans edit1 n'aille pas ecaser une info deja svisualiser dans un edit et choisit un edit vide pour s'inscrire

[MFDev]

Il existe des solutions, par exemple:
Tu rassemble tes TEdit dans un TGroupBox, et tu vérifies le contenu des TEdit que tu initialise au besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
// lors du Return, on envoie dans le TEdit libre
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
	if Key = VK_RETURN then
		MajEdit((Sender as TEdit).Text);
 end;
 
// essaie d'écrire dans un TEdit libre
procedure TForm1.MajEdit(sText: string);
 var
	i: integer;
 begin
	with GroupBox1 do begin
		for i := 0 to ControlCount - 1 do begin
			if Controls[i] is TEdit then begin
				if (Controls[i] as TEdit).Text = '' then begin
					(Controls[i] as TEdit).Text := sText;
					Exit;
				end;
			end;
		end;	// for
		ShowMessage('Tous les TEdit ont été complétés');
	end;	// with
 end;
 
// pour effacer les TEdit
procedure TForm1.btnClearEditClick(Sender: TObject);
 var
	i: integer;
 begin
	with GroupBox1 do begin
		for i := 0 to ControlCount - 1 do begin
			if Controls[i] is TEdit then
				(Controls[i] as TEdit).Clear;
		end;	// for
		ShowMessage('Tous les TEdit ont été effacés');
	end;	// with
 end;

Voilà.
@+
Fabrice