Listboxen initialisieren, umkopierne ...

[h4nnes_]

Hallo,

Ich brauche dringenst Hilfe bei meinem Delphi Beispiel!!! Ich bekomme das mit hoher wahrscheinlichkeit morgen zur Matura Informatik!

das Programm sieht folgendermaßen aus:

In eine ListBox sind die Buchstaben von a-z zu initialisieren!
Wie gehe ich das am besten an? FOR-Schleife... ich müsste einen String in einen Char umwandeln... wie fordere ich die ASCII Codes an?

ich weiß normal ist dies kein Forum wo einem alles vorgesagt wird, aber in meinem Fall ist es echt wichtig!!!

DANKE; und MFG, h4nnes!

[Bernhard Geyer]

Ganz werden wir es dir nicht lösen, aber Tipps geben. Z.B. für die Schleife könntet du folgendes Konstrukt als Ideenquelle nehmen

Delphi-Quellcode:

var
  c: Char;
  str: String;
begin
  for c := 'a' to 'z' do
  begin
    str := c;
  end;
end;

[h4nnes_]

danke für den tipp, allerdings schreibt er mir nur "z" in das Feld hinein! Brauche ich eine doppelte FOR Schleife?

[Bernhard Geyer]

Du mußt natürlich in der Schleife die Einträge in die Listbox eintragen. Mein Beispiel soll Zeigen das man über Char's eine Schleife aufbauen kann und dieses Char einfach einem String zuweisen kann.

[h4nnes_]

okay, danke funktioniert!

Nun muss ich eine Forschleife gestalten in Zweier Schritten:

w/2
w/4
w/6
.
.
.
w/16


wie kann das mit doppelter FOR Schleife gehen dass ich nur 2er schritte verwende? soweit bis jetzt!

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var w:real;
var h,i:byte;
var a:real;
begin
 w:=StrToFloat(Edit1.Text);
   for h:=2 to 16 do begin
      for  i:=0 to 2 do begin
           h:=h+i;
         end;

      a:= w/h;
      RE1.Lines.Add(FloatToStr(a));

   end;
end;

lg

[dr. love]

es bietet sich an eine For-Schleife von 1 bis 16 zu nehmen, mit den eigentlichen Werten aber nur dann zu arbeiten (diese auszugeben?), wenn sie durch 2 ohne Rest teilbar, also gerade sind:

Die Bediingung h mod 2 = 0 im folgenden Quelltextbaustein

Delphi-Quellcode:

for i := 1 to 16 do
begin

  if i mod 2 = 0 then 
    ...

end;

muss also erfüllt sein

[h4nnes_]

okay danke!


echt super dass ihr mir geholfen habt!!! thx!

lg h4nnes

[DGL-luke]

...sehr viel effektiver (weil halbe schleifenlänge und kein teures(!) mod ) geht es so:

Delphi-Quellcode:

for i := 1 to 8 do
begin
  ShowMessage(inttostr(i*2)); //nur gerade zahlen
end;