[Delphi] Edit-najdłu?ższy

0

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]

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

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 :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1