Цикл for в Delphi

[AlexandЯ]

Доброго всем утра. Нужно организовать цикл for, но который переберал бы поля edit, т.е

i:= edit1 to editn ...
i.text:='xxxxx' и т.д.

i:=1 to n ...
editi.text:='xxxx'...

Как ето сделать???

[koma_grusha]

попробуй так:

procedure SortEdits;
var
    i: Integer;
    Control: TControl;
begin
    for i := 1 to n do
        begin
        Control := Form1.FindChildControl('Edit' + IntToStr(i));
        ShowMessage(TEdit(Control).Text);
        end;
end;

у меня работало

[AlexandЯ]

У меня немного другая проблема.
Мне надо, чтобы image перебирались и чтобы image с 15 по 30 поставился одинаковый picture Попробовал сделать по аналогии, не получилось, выдает ошибку

[koma_grusha]

какую ошибку?

[AlexandЯ]

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
Control: TControl;
begin

for i := 10 to 39 do
begin
Control := Form1.panel3.FindChildControl('imag e' + IntToStr(i));
Timage(Control).Picture.LoadFromFil e('projectfiles\u24.bmp');
end;
end;

Вот мой текст

Ошибку прицепил

[koma_grusha]

оказывается FindChildControl для Image не действует, нужно так

procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer;
    Control: TComponent;
begin
    for i := 1 to 3 do
        begin
        Control := Form1.FindComponent('image' + IntToStr(i));
        TImage(Control).Picture.LoadFromFile('cat.jpg');
        end;
end;

[Diana14_06]

Добрый вечер.
Добрые люди, напишите пожалуйста процедуру программы в delphi
в которой можно вычислить количество простых чисел среди первых 100 натуральных. Очень надо, сегодня!!!
Заранее спасибо!!

[Son Of Pain]

function IsPrime(num:integer):boolean;
	var i:integer;
begin
	result:=true;
	for i:=2 to num-1 do
		if (num mod i)=0 then 
		begin
			result:=false;
			exit;
		end;
end;

function PrimesInRange(min,max:integer):integer;
	var i:integer;
begin
	result:=0;
	for i:=min to max do
		if IsPrime(i) then inc(result);
end;

Такие дела

[Serge_Bliznykov]

Son Of Pain, функция IsPrime имеет пару ошибок + неоптимальная по количеству проверок (величина (num-1), до какого числа проверять делители, выбрана слишком большой).