Wie kleinste Zahl aus Memo Box auslesen?

[bberger1234]

Wie kann denn bitte die kleinste Zahl aus einer Memobox ausgelesen werden? (kleine Zahlen haben noch Nullen davor)
also zum Beispiel ist 0001 kleiner als 02. Oder 003 ist kleiner als 23.

[idontwantaname]

Wandle die Zahlen aus dem Memo in Integers um und speichere sie in einem Array. Dann durchläufst du dieses Array uns merkst dir das jeweils kleine Element.

[Klaus01]

Delphi-Quellcode:

var
  kleinsteZahl:Integer;

kleinsteZahl:=MaxInt;
for i:=0 to memo1.lines.count -1 do
 begin
   if StrToInt(memo1.lines[i]) < kleinsteZahl then
     kleinsteZahl :=StrToInt(memo1.lines[i]) 
 end;

Grüße
Klaus

[DeddyH]

Delphi-Quellcode:

function GetMinValue(sList: TStrings): integer;
var i, temp: integer;
begin
  Result := MAXINT;
  for i := 0 to sList.Count - 1 do
    begin
      if TryStrToInt(sList[i],temp) and (temp < Result) then
        Result := temp;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetMinValue(Memo1.Lines)));
end;