Hallo leutz, ich hab ne Aufgabe in Info aufbekommen und komm auf keinen grünen Zweig.
Wir sollen in ein Stringgrid (1 Zeile, 30 Spalten) zufällig die werte z.B: A1,A2,A3,B1,B2,B3 erstellen
und dan der reihenfolge nach orden könt ihr mir bitte helfen.
Vielen Dank
Simon

Ps.: Ich bin delphi Neuling ^^

aha ne Info-Aufgabe .. dann nur Such-hinweise ^^

Zitat von simon19881:

...zufällig die werte ...

-> Random

Zitat von simon19881:

...und dan der reihenfolge nach orden...

-> bubblesort: IMHO recht easy zu verstehen und umzusetzen

Hallo ich mus noch dazui sagen dass ich ein totaler anfänger mit delphi bin
Bitte sagt mir mal wie ich verhindere dass er die anderen werte überschreibt
danke schonmal im voraus ^^

zusammenfalten · markieren

Delphi-Quellcode:

var i,z:byte;
begin
for i:=0 to 30 do
z:=random (31);
if Stringgrid1.Cells[i,0]='' then
begin
stringgrid1.cells[z,0]:='A1';
stringgrid1.cells[z,0]:='A2';
stringgrid1.cells[z,0]:='A3';
stringgrid1.cells[z,0]:='A4';
stringgrid1.cells[z,0]:='B1';
stringgrid1.cells[z,0]:='B2';
stringgrid1.cells[z,0]:='B3';
stringgrid1.cells[z,0]:='B4';
stringgrid1.cells[z,0]:='C1';
stringgrid1.cells[z,0]:='C2';
stringgrid1.cells[z,0]:='C3';
stringgrid1.cells[z,0]:='C4';
end;
end;

Edit: hoppla, der erste Parameter von Cells[I,J] ist die Spalte!

#1
For-Schleife geht so:

markieren

Delphi-Quellcode:

for I := Low to High do begin
  //Code
end;

//oder so, je nach Styleguide

for I := Low to High do
begin
  //Code
end;

In deinem Code wird z jedes Mal wieder überschrieben, ohne dass du damit irgendwas anstellst.

markieren

Delphi-Quellcode:

for i:=0 to 30 do
z:=random (31);

#2
Der Code sollte von Anfang an "richtig" eingerückt werden, weil man dann den Programmablauf schon anhand der Struktur des Quellcodes nachvollziehen kann. Außerdem sollten alle Bezeichner (also Variablennamen etc) aussagekräftig sein. Das ist wichtig, um Fehler zu vermeiden.

Dieser Code tut noch nicht, was du willst, aber vielleicht siehst du schon, warum dein Programm noch nicht funktioniert.

zusammenfalten · markieren

Delphi-Quellcode:

var
  I, ColIndex: Byte;
begin
  for I := 0 to 30 do begin
    ColIndex:= Random(31);
  end;
  //I ist jetzt undefiniert (siehe Onlinehilfe) und ColIndexeine Zahl zwischen 0 und 30
  if Stringgrid1.Cells[I, 0] = '' then begin
    StringGrid1.Cells[ColIndex, 0] := 'A1';
    StringGrid1.Cells[ColIndex, 0] := 'A2';
    StringGrid1.Cells[ColIndex, 0] := 'A3';
    StringGrid1.Cells[ColIndex, 0] := 'A4';
    StringGrid1.Cells[ColIndex, 0] := 'B1';
    StringGrid1.Cells[ColIndex, 0] := 'B2';
    StringGrid1.Cells[ColIndex, 0] := 'B3';
    StringGrid1.Cells[ColIndex, 0] := 'B4';
    StringGrid1.Cells[ColIndex, 0] := 'C1';
    StringGrid1.Cells[ColIndex, 0] := 'C2';
    StringGrid1.Cells[ColIndex, 0] := 'C3';
    StringGrid1.Cells[ColIndex, 0] := 'C4';
  end;
end;

#3
Wer ist "er"?

Zitat:

Bitte sagt mir mal wie ich verhindere dass er die anderen werte überschreibt

Hallo Simon,

Zitat von simon19881:

Ps.: Ich bin delphi Neuling ^^

ok, eine Starthilfe gebe ich Dir. Kommentarlos

zusammenfalten · markieren

Delphi-Quellcode:

var i, a, b : Integer;
    tmpStr : String;
begin
  for i:=0 to Pred(StringGrid1.RowCount) do begin
    StringGrid1.Cells[0, i] := Chr(Ord('A') + (i div 4)) + IntToStr((i mod 4) + 1);
  end;
  for i:=0 to 300 do begin
    a := Random(Pred(StringGrid1.RowCount));
    b := Random(Pred(StringGrid1.RowCount));
    tmpStr := StringGrid1.Cells[0, a];
    StringGrid1.Cells[0, a] := StringGrid1.Cells[0, b];
    StringGrid1.Cells[0, b] := tmpStr;
  end;
end;

Rauskriegen, wie das funktioniert und den Bubblesort programmieren mußt Du nun aber selber