Finde det største tal i en listbox

type
  Max: Integer // Eller hvad type der er nødvendig
  Loop: Integer;
begin
  Max := StrToInt(ListBox1.Items[0]);  // Max er lig med det første tal
  for Loop := 1 to ListBox1.Items.Count -1 do
  begin
    if StrToInt(ListBox1.Items[Loop]) > Max then
      Max := StrToInt(ListBox1.Items[Loop]);
  end;
  Label1.Caption := IntToStr(Max);
end;

Hovsa, der mangler en semikolon i linie 2.
Max: Integer;

aka: Nu er opgaven rigtignok en liste med 10 tal og så virker din kode. Ellers havde det været mere sikkert at starte med 0 i din for-next så en tom liste ikke fejlede:

function GetMax(aItems : TStrings) : integer;
var
  i : integer;
begin
  result := -2147483648; // Mindste mulige heltal
  for i := 0 to aItems.Count - 1 do
    if result < aItems[i] then
      result := aItems[i];
end;
     
Label1.Caption := GetMax(ListBox1.Items);

Hej Hrc

Sandt nok, men hvad er det største tal i en tom liste?
Det er i hvertfald ikke -2147483648.

Så vil en fejlmeddelelse være mere rigtig.

tak!

Korrekt. En exception havde nok været på sin plads:

function GetMax(aItems : TStrings) : integer;
var
  i : integer;
begin
  if aItems.Count = 0 then
    raise EEmptyListException.Create('Listen er dælmedunsme tom');
  result := -2147483648; // Mindste mulige heltal (ingen MinInt konstant)
  for i := 0 to aItems.Count - 1 do
    if result < aItems[i] then
      result := aItems[i];
end;

Fandt denne her i "math"-unitten:

function MaxIntValue(const Data: array of Integer): Integer;
var
  I: Integer;
begin
  Result := Data[Low(Data)];
  for I := Low(Data) + 1 to High(Data) do
    if Result < Data[I] then
      Result := Data[I];
end;

.. og det er helt analogt din løsning.

den alternative :)

function MaxList(aList: TStrings) : Integer;
begin
  if aList.Count <= 0 then
    raise Exception.Create('Listen er tom');

  with TStringList.Create do
    try
      Assign(aList);
      Sorted := True;
      Result := StrToInt(Strings[Pred(Count)]);
    finally
      Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(MaxList(ListBox1.Items)));
end;

Hej nico26

Sorterer den alfabetisk eller numerisk?
Hvis den sorterer alfabetisk, er den ingenting værd.

Du har naturligvis helt ret - jeg er ved at være lidt rusten til Delphi. Men nu skulle den være der (dog knap så elegant) :)

function MySort(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := StrToInt(List[Index1]) - StrToInt(List[Index2]);
end;

function MaxList(aList: TStrings) : Integer;
begin
  if aList.Count <= 0 then
    raise Exception.Create('Listen er tom');

  with TStringList.Create do
    try
      Assign(aList);
      CustomSort(MySort);
      Result := StrToInt(Strings[Pred(Count)]);
    finally
      Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(MaxList(ListBox1.Items)));
end;

endnu et alternativ :)

function MaxList2(aList: TStrings) : Integer;

  function Aux(m, i: Integer) : Integer;
  begin
    if i >= aList.Count then
      Result := m
    else
      Result := Aux(Max(m, StrToInt(aList[i])), Succ(i));
  end;

begin
  if aList.Count <= 0 then
    raise Exception.Create('Listen er tom')
  else if aList.Count = 1 then
    Result := StrToInt(aList[0])
  else
    Result := Aux(StrToInt(aList[0]), 1);
end;