Listbox

[Nils_13]

Wenn es wirklich der Reihenfolge nach immer höher wird, solltest du das mit z.B. dieser Schleife lösen können:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do // Für alle Items von 0 bis ListBox Itemanzahl - 1
  begin
    Label1.Caption := IntToStr(max(StrToInt(ListBox1.Items[i]), -1));  
    // hier wird mit der Funktion max verglichen
    // Wenn es allerdings negativ Zahlen gibt, musst du -1 ersetzen                                                                    
  end;
end;

Das ist eine total schlechte Variante, die ich mir schnell ohne Delphi selber ausgedacht habe, bin für Verbesserungen sehr dankbar.

[anfänger123]

geht bei mir nicht bin zu dumm dafür

[SirThornberry]

anstelle von "geht nicht" gib uns einfach eine Fehlerbeschreibung. Was geht nicht? Welche Fehlermeldung kommt? bei welcher Anweisung kommt die Fehlermeldung etc.

[anfänger123]

Delphi-Quellcode:

for i := 0 to isbListe.Items.Count - 1 do
     begin
     Maximal.Caption := IntToStr(max(StrToInt(isbListe.Items[i]), -1));

so in das Maximal.Caption soll er mir dann den größten wert rein schreiben aber er sagt immer
das maximal nicht definiert wäre
max findet er auch nicht

[edit=SirThornberry]Delphi-Tags gesetzt. Mfg, SirThornberry[/edit]

[SirThornberry]

hast du eine Komponente oder Variable die "Maximal" heißt?

[anfänger123]

ja ich hab eine maximal.caption
aber dort hab ich einen anderen namen müssen eintragen und dann bringt er mir diese fehlermeldung nicht mehr aber

jetzt hab ich den fehler das ein semikolon fehlet weis aber nicht wo

Delphi-Quellcode:

 for i := 0 to isbListe.Items.Count - 1 do
     begin
     gbMaxi.Caption := IntToStr(max(StrToInt(isbListe.Items[i]), -1));
     end; //hab ich auch gemacht hab es nur vergessen hin zu schreiben

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]

[anfänger123]

semikolon oder operatpr fehlt ist die fehlermeldung

[SirThornberry]

wenn du bei der schleife ein "begin" hast, muss auch ein "end;" dann kommen. Hast du das eventuell vergessen? Wenn du an deinem Beitrag etwas ändern willst kannst du übrigens den "Edit"-Button über dem entsprechenden Beitrag verwenden.

[sigma]

hab es leider nicht hin bekommen der quelltext von anfänger123 versteh ich nicht kann mir vielleicht jemand helfen damit ich auch wieder genau weis um was es geht
verstehe nicht wie der dann auf den größten wert kommen will so

[Nils_13]

Es ist eigentlich nicht schwer. Die Items fangen bei 0 an und hören z.B. bei 255 auf --> das letzte Item hat die höchste Zahl (255).

Delphi-Quellcode:

for i := 0 to isbListe.Items.Count - 1 do
begin
  gbMaxi.Caption := IntToStr(max(StrToInt(isbListe.Items[i]), -1));
  // Hier wird ganz einfach das höchste Item in ein Label mit dem Namen "gbMaxi" geschrieben. IsbListe ist die ListBox.
  // max - Siehe OH
end;