| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

мини проблема

Дарья ©   (2006-04-13 00:00:00) 

доброго ночи всем мастерам,только вот помогите мне разобраться с проблемкой одной.
Есть edit в котором текст:='0,5,0,5,5,5'
как при нажатии кнопки в лэйбел1 показывалась сумма т.е.=20,а в лабел2 покаывалось кол-во цифр ??
помогите плиз,ду ответа

---

Германн   (2006-04-15 02:42:00) [1]

Так ты Дарья
или Тимон?

---

Leonid Troyanovsky   (2006-04-14 19:18:00) [2]

> Дарья   (14.04.06 19:07) [11]

> а уже разобралась!;)


Ну, и как? Надеюсь, таинственный AdvStringGrid1 не
остался безнаказанным.

--
Regards, LVT.

---

Дарья   (2006-04-14 19:07:00) [3]

> > Дарья   (13.04.06 17:24) [9]
>
> > пытаюсь как то так:
>
>
> Извини, конечно, но все это непонятно и, особенно,
> AdvStringGrid1.
>
> --
> Regards, LVT.


а уже разобралась!;)

---

Leonid Troyanovsky   (2006-04-14 19:03:00) [4]

> Дарья   (13.04.06 17:24) [9]

> пытаюсь как то так:


Извини, конечно, но все это непонятно и, особенно,
AdvStringGrid1.

--
Regards, LVT.

---

Дарья   (2006-04-13 17:24:00) [5]

пытаюсь как то так:
var
 items: TStringList;
  i:integer;
begin
items := TStringList.Create;
 try
 i:=AdvStringGrid1.Row;
 items.CommaText :=AdvStringGrid1.Cells[1,i];
хз что здесь :(
 finally
   items.free;
 end;

---

Дарья   (2006-04-13 16:22:00) [6]

опять всем прет,тут еще маленькая фигня у меня,
в stringgrid 4 колонки,в кадой колонке что то одно,либо '2', либо '3', либо '4', либо '5'. При нажатии на кнопку мне надо чтобы в лабелы(их 4)писалось кол-во 2,3,4,5

---

Дарья   (2006-04-13 14:03:00) [7]

уже все,не надо;)
Var
 items: TStringList;
begin
 items := TStringList.Create;
 try
   ExtractStrings([','], [], PChar(Edit1.Text), Items);
   items.CommaText := Edit1.Text;
   Label1.Caption := items[0];
   Label2.Caption := items[1];
   Label3.Caption := items[2];
   Label4.Caption := items[3];
   Label5.Caption := items[4];
   Label6.Caption := items[5];
 finally
   items.free;
 end;

---

Дарья   (2006-04-13 14:00:00) [8]

всем большое спасибо,очень помогли,вот еще вопросик небольшой.
в edit1 текст '0,5,0,5,4,5', и 6 лабелов,
как при нажатии на кнопку сделать так чтобы
в лабел1 писалось:='0'
в лабел2 писалось:='5'
в лабел3 писалось:='0'
в лабел4 писалось:='5'
в лабел5 писалось:='4'
в лабел6 писалось:='5'

как я понимаю надо работать с Tstringlist

делаю так:
var
S : TStringList;
i:integer;
begin
with TStringList.Create do
TStringList.Create.Delimiter:=',';
TStringList.Create.DelimitedText:=Edit1.Text;
for i:=0 to TStringList.Create.Count-1 do
хз
Label1.Caption:=хз че
Label2.Caption:=хз че
label3.Caption:=хз че
label4.Caption:=хз че
label5.Caption:=хз че
label6.Caption:=хз че
TStringList.Create.Free;

помогите

---

Германн   (2006-04-13 03:26:00) [9]

> Rial ©   (13.04.06 03:19) [4]
>
>
> > Германн ©   (13.04.06 03:02) [3]
>
>
> А мой код не числа обрабатывает что ли ?..


Числа, числа и ещё раз числа! :-)
Но теперь поспорь насчёт моей фразы:
"Если, вдруг перейдешь от цифр к числам, то вот ещёвариант:"

---

Rial   (2006-04-13 03:19:00) [10]

> Германн ©   (13.04.06 03:02) [3]


А мой код не числа обрабатывает что ли ?..

---

Германн   (2006-04-13 03:02:00) [11]

> Дарья   (13.04.06 00:45) [2]
>
> большое спасибо,работает!
>


Если, вдруг перейдешь от цифр к числам, то вот ещё вариант:

 var
   SL : TStringList;
 // Остальные переменные из вышеприведенного примера
begin
 Sum:=0;
 with TStringList.Create do try
   Delimiter:=',';
   DelimitedText:=Edit1.Text;
   for i:=0 to Count-1 do
     try
       Sum:=Sum + StrToInt(Strings[i]);
     except
       on EConvertErrorr do ShowMessage('А пошёл бы ты нафик!);
     end;
   Label1.Caption:=IntToStr(Count);
   Label2.Caption:=IntToStr(Sum);
 finally
   Free;
 end;
end;

---

Дарья   (2006-04-13 00:45:00) [12]

большое спасибо,работает!

---

Rial   (2006-04-13 00:33:00) [13]

procedure TForm1.Button1Click(Sender: TObject);
Const Delim=',';
Var P,I,L,Sum,Num:Integer;
   S:String;
begin
S:=Edit1.Text;
L:=Length(S);
Num:=0;
Sum:=0;
I:=1;
While (I<=L)do begin
 P:=I;
 While (I<=L)and(S[I]<>Delim)do Inc(I);
 Inc(Sum,StrToInt(Copy(S,P,I-P)));
 Inc(I);
 Inc(Num);
end;
Label1.Caption:=IntToStr(Num);
Label2.Caption:=IntToStr(Sum);
end;


---

Наверх