[jare25]

evo neshto na brzinu, pa vidi odgovara li ti i mozesh li kako da "skratish" kod:

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
min: integer;
max: integer;
duzina: integer;
pom: string;
pom1:integer;
i: integer;
begin
if edit1.Text <> '' then
begin
str:=edit1.Text;
duzina:=length(str);
pom:='';
i:=1;
while str[i] <> ',' do
begin
pom:=pom + str[i];
i:=i+1;
end;

min:=strtoint(pom);
max:=strtoint(pom);

i:=1;
pom:='';
while i <= duzina do
begin
while str[i] <> ',' do
begin
pom:=pom + str[i];
i:=i+1;
end;
i:=i+1;
pom1:=strtoint(pom);
if pom1>max then max:=pom1;
if pom1<min then min:=pom1;
pom:='';

end;
end;
edit2.Text:=inttostr(max);
edit3.Text:=inttostr(min);

end;