Небольшая проблема

← →
Barabashka (2006-03-31 06:50) [0]

Привет, Мастера! Подскажите пожалуйста, как мне сделать так: на Label1 у меня назначено кое -какое значение. Хотелось бы чтобы оно отображалось и на Label и на Edit1. Помогите! L:=Label1.Caption;
Edit6.Text:=L; - не действуетю

← →
MBo © (2006-03-31 07:10) [1]

>Edit6.Text:=L; - не действуетю
если L - строка, то должно работать

← →
Barabashka (2006-03-31 07:15) [2]

Ага, L:string;Но не работает! Может по-другому как?

← →
balepa © (2006-03-31 07:15) [3]

> Barabashka (31.03.06 06:50)
> Привет, Мастера! Подскажите пожалуйста, как мне сделать
> так: на Label1 у меня назначено кое -какое значение. Хотелось
> бы чтобы оно отображалось и на Label и на Edit1. Помогите!
> L:=Label1.Caption;
> Edit6.Text:=L;
> - не действуетю

А L:= Label1.Caption - действует ? Если да то покажи код

← →
Barabashka (2006-03-31 07:22) [4]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
S,T,B,D,C,V:real;
L:string;
begin
S:=0;
B:=0;
//Arr[i]:=strtocurr(stringGrid1.Cells[i,1]);
for i:=1 to 50 do
S:=S+StrToFloat(StringGrid1.Cells[i,1]);
T:=S/50;
B:=B+sqr((StrToFloat(StringGrid1.Cells[i,1])-T));
D:=B/T;
C:=sqrt(D);
V:=C*100/T;
L:=Label1.Caption;
// R:= currtostr(max(arr,50));
Edit1.Text:=FloatToStr(S);
Edit2.Text:=FloatToStr(T);
// Edit6.Text:=currtostr(max(arr,50));
Edit4.Text:= FormatFloat("0.00",D);
Edit5.Text:= FormatFloat("0.00",C);
Edit3.Text:= FormatFloat("0.00",V);
Edit6.Text:=L;
end;

← →
balepa © (2006-03-31 07:30) [5]

И че не работает ? У тебя в Label1 че нибудь написано ?
Должно работать. Могу посоветовать F7(8) или breakpoint"ы и посмотреть значение L после L:= Label1.Caption и перед Edit6.Text:= L.
И вообще вынеси из цикла L:= Label1.Caption и Edit6.Text:= L

Сразу не заметил Если все что после for написано надо выполнять в цикле после do поставь begin а в конце end; а то у тебя только
S:=S+StrToFloat(StringGrid1.Cells[i,1]); в цикле

← →
Barabashka (2006-03-31 08:12) [7]

Спасибо огромное!!! я над этой ошибкой уже 2 дня сижу - где были мои глаза!!!

> Barabashka (31.03.06 08:12) [7]
> Спасибо огромное!!! я над этой ошибкой уже 2 дня сижу - где
> были мои глаза!!!

Ну ты крут!!!

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