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

← →
Дарья (2006-04-13 00:00) [0]

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

← →
Rial © (2006-04-13 00:33) [1]

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;

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

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

← →
Германн © (2006-04-13 03:02) [3]

> Дарья (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;

← →
Rial © (2006-04-13 03:19) [4]

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

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

← →
Германн © (2006-04-13 03:26) [5]

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

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

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

всем большое спасибо,очень помогли,вот еще вопросик небольшой.
в 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 14:03) [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 16:22) [8]

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

← →
Дарья (2006-04-13 17:24) [9]

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

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

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

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

--
Regards, LVT.

← →
Дарья (2006-04-14 19:07) [11]

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

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

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

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

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

--
Regards, LVT.

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

мини проблема Найти похожие ветки