real и floatToStr

@Dixion · Регистрация: 29.05.2012

Студворк — интернет-сервис помощи студентам

ошибка как исправить

Delphi
1
2
3
4
5
6
var summ:real;
begin
for i:=1 to MyObjCount do
 summ:=summ+ StrTofloat(form3.strngrd1.Cells[3,i]);
 form3.label1.Caption:=floatToStr(summ);
end;

@Dixion · 21.06.2012, 00:54 **[ТС]**

Сообщение от Санек25

я тебе уже писал как найти самого молодого...

я тебе тоже писал что там находит не самого молодого а того кто меньше 100
мне говорили методом пузыря както я непонял
тут чето пытался

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin
      for i := 1 to MyObjCount do
                if MyObj[i].staj > MyObj[i+1].staj then begin
                k := MyObj[i].staj;
                MyObj[i].staj := MyObj[i+1].staj;
                MyObj[i+1].staj:= k;
                form4.strngrd1.Cells[3,i]:=inttostr(MyObj[i].staj);
                form4.Show;
            end;
 
end;

@Санек25 · 21.06.2012, 01:06

Сообщение от Dixion

я тебе тоже писал что там находит не самого молодого а того кто меньше 100

нет там находит самого молодого ..Ты бы хоть попробовал код...100 лет стажа быть не может поэтому я и принял это число, там так же могло быть 150 или 200 ...

а если тебе строчка не нравится где присваевается занчение 100 то удали ее вообще и так работать будет.

Добавлено через 3 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin
      for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then begin
               j := MyObj[i].staj;
            
                
            end;
 form4.Show;
form4.strngrd1.Cells[3,i]:=inttostr(j);
end;

как -то так я не проверял. все Я

Добавлено через 1 минуту
MyObj.Count-1 // если не ошибаюсь нужна точка

@Dixion · 21.06.2012, 01:16 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin  j:=100;
      for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then begin
               j := MyObj[i].staj;
 
 
            end;
 
form4.strngrd1.Cells[3,i]:=inttostr(j);
form4.show;
end;

Не че не происходит, не добавлеяет значение в форму 4

@antikiler_ · 21.06.2012, 01:26

А если так

Delphi
1
form4.strngrd1.Cells[3,1]:=inttostr(j);

@Dixion · 21.06.2012, 01:29 **[ТС]**

Сообщение от antikiler_

А если так

Delphi
1
form4.strngrd1.Cells[3,1]:=inttostr(j);

так выводит, но только одну строку

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin
      for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then begin
                j := MyObj[i].staj;
                 form4.strngrd1.Cells[3,1]:=inttostr(j);
                form4.strngrd1.Cells[0,1]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,1]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,1]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,1]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,1]:=inttostr(MyObj[i].premia);
            end;
form4.show;
end;

@antikiler_ · 21.06.2012, 01:36

Сообщение от Dixion

так выводин но у меня там может быть и несколько строк

Хорошо. Просто в процедуре i после цикла нахождения минимального становилась равное
MyObjCount, поэтому не показывала.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
i,k:integer;
j:integer;
begin
k:=1;
      for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then begin
                j := MyObj[i].staj;
                 form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                inc(k);
            end;
form4.show;

@Dixion · 21.06.2012, 01:42 **[ТС]**

Сообщение от antikiler_

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
i,k:integer;
j:integer;
begin
k:=1;
      for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then begin
                j := MyObj[i].staj;
                 form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                inc(k);
            end;
form4.show;

так показывает первую строку

@antikiler_ · 21.06.2012, 01:48

Сообщение от Dixion

так показывает первую строку

Я знаю. А так должно показывать несколько

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
i,k:integer;
j:integer;
begin
k:=1;
j:=maxint;
 for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then 
                j := MyObj[i].staj;
 
      for i := 1 to MyObjCount-1 do
                if j = MyObj[i].staj then begin
                form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                inc(k);
            end;
form4.show;
end;

@Dixion · 21.06.2012, 01:54 **[ТС]**

Сообщение от antikiler_

Я знаю. А так должно показывать несколько

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
i,k:integer;
j:integer;
begin
k:=1;
j:=maxint;
 for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then 
                j := MyObj[i].staj;
 
      for i := 1 to MyObjCount-1 do
                if j = MyObj[i].staj then begin
                form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                inc(k);
            end;
form4.show;
end;

также показывает оду строку
надо вот так http://pas1.ru/bubbles но я не понимаю) не получаеться чето

@antikiler_ · 21.06.2012, 02:04

Попробуй так

Delphi
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
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin
k:=1;
j:=maxint;
form4.strngrd1.RowCount:=2;
 for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then
                j := MyObj[i].staj;
 
      for i := 1 to MyObjCount-1 do
                if j = MyObj[i].staj then begin
                form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                form4.strngrd1.RowCount:=form4.strngrd1.RowCount+1;
                inc(k);
            end;
form4.show;
end;

@Dixion · 21.06.2012, 02:11 **[ТС]**

Сообщение от antikiler_

Попробуй так

Delphi
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
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin
k:=1;
j:=maxint;
form4.strngrd1.RowCount:=2;
 for i := 1 to MyObjCount-1 do
                if j > MyObj[i].staj then
                j := MyObj[i].staj;
 
      for i := 1 to MyObjCount-1 do
                if j = MyObj[i].staj then begin
                form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                form4.strngrd1.RowCount:=form4.strngrd1.RowCount+1;
                inc(k);
            end;
form4.show;
end;

Криво както работает

@antikiler_ · 21.06.2012, 02:18

Сообщение от Dixion

Криво както работает

Конечно коряво. Проще полностью написать самому чем, чем исправлять чужие баги... Вообщем убери единицу с MyObjCount.

Delphi
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
procedure TForm1.Button4Click(Sender: TObject);
var
i,k:integer;
j:integer;
begin
k:=1;
j:=maxint;
form4.strngrd1.RowCount:=2;
 for i := 1 to MyObjCount do
                if j > MyObj[i].staj then
                j := MyObj[i].staj;
 
      for i := 1 to MyObjCount do
                if j = MyObj[i].staj then begin
                form4.strngrd1.Cells[3,k]:=inttostr(j);
                form4.strngrd1.Cells[0,k]:=MyObj[i].fio;
                form4.strngrd1.Cells[1,k]:=MyObj[i].prof;
                form4.strngrd1.Cells[2,k]:=MyObj[i].nomer;
                form4.strngrd1.Cells[4,k]:=inttostr(MyObj[i].oklad);
                form4.strngrd1.Cells[5,k]:=inttostr(MyObj[i].premia);
                form4.strngrd1.RowCount:=form4.strngrd1.RowCount+1;
                inc(k);
            end;
form4.show;
end;

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .