Jak zrobić żeby zmienna integer przechwywała wartość z EDIT.
Jedna litera to 1, dwie litery to 2 itd. biorąc pod uwagę, że EDITów jest 5 i, że ma przechowywać wartość z tego EDITa gdzie jest najwięcej znaków[browar]
- Rejestracja:ponad 22 lata
- Ostatnio:około 14 lat
- Postów:384
0
[code]
var i:integer;
tab : array [1..5] of integer;
begin
tab[1]:=Length(Edit1.text);
tab[2]:=Length(Edit2.text);
tab[3]:=Length(Edit3.text);
tab[4]:=Length(Edit4.text);
tab[5]:=Length(Edit5.text);
end;
[/code]
I se największą liczbę znajdź ;p
specjalnie zrobilem bez szukania komponentow zeby nie znalazlo czasem nie potrzebnego
- Rejestracja:ponad 22 lata
- Ostatnio:prawie 9 lat
- Postów:275
0
Poprzednie jest ok, ale to jest dla wiekszej ilosci komponentow
[code]
var
i,max: integer;
begin
max:=0;
for i:= 0 to ComponentCount -1 do
begin
if Components[i] is Tedit then
with Components[i] as Tedit do
if length(Text)>max then max:=length(text);
end;
end;
[/code]
chyba dziala :)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.