Entwickler-Ecke :: Thema anzeigen - Mehrdimensionales Array sortieren und in Stringgrid ausgeben

tomekkkk - Do 04.09.08 22:38
Titel: Mehrdimensionales Array sortieren und in Stringgrid ausgeben

Telefonbuch
HAb die aufgabe ein telefonbuch zu programmieren ... das hab ich bis jetzt alles geschafft aber
wenn ich das telefonbuch(array[Vorname Nachname Telenummer]) z.B. nach vornamen sortieren will dann werden alle telefonnummern und nachnamen gemischt... kriegt man das hin das telefonnummer nach sortieren immernoch bei seiner dimension im array passt
hier quelltext von den befehlen die ich bis jetzt habe:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.btn_vornameClick(Sender: TObject);
var i,j : Integer;
help : string;
begin

     for i:=1 to speicherplaetze do
     begin
         for j:=1 to speicherplaetze-1 do
         begin
              if eintrag[j,1] > eintrag[j+1,1] then
              begin
              help:=eintrag[j+1,1];
              eintrag[j+1,1]:=eintrag[j,1];
              eintrag[j,1]:=help;
             end;
         end;
     end;

for i:=1 to speicherplaetze do
    begin
    stringgrid1.cells[1,i] := eintrag[i,1];
    stringgrid1.cells[2,i] := eintrag[i,2];
    stringgrid1.cells[3,i] := eintrag[i,3];
    end;
end;

also telefonnummer und name sollten zusammenbleiben nach dem sortieren das ich das in dem stringgrid ausgeben kann...
Dazu hab ich noch 2 bilder gemacht wie der das macht wie es vorm sortieren aussieht und wie danache:

Moderiert von Narses: Bilder als Anhang hochgeladen

hab schon überall gegoogled aber nix gefunden
danke schonma =) lg tomek

Narses - Do 04.09.08 22:56
Titel: Re: Mehrdimensionales Array sortieren und in Stringgrid ausgeben

Moin und :welcome: im Forum!

Du musst beim Dreieckstausch alle zugehörigen Einträge mit tauschen:

tomekkkk hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

     for i:=1 to speicherplaetze do
     begin
         for j:=1 to speicherplaetze-1 do
         begin
              if eintrag[j,1] > eintrag[j+1,1] then
              begin
              help:=eintrag[j+1,1];
              eintrag[j+1,1]:=eintrag[j,1];
              eintrag[j,1]:=help;
              help:=eintrag[j+1,2];
              eintrag[j+1,2]:=eintrag[j,2];
              eintrag[j,2]:=help;
              help:=eintrag[j+1,3];
              eintrag[j+1,3]:=eintrag[j,3];
              eintrag[j,3]:=help;
             end;
         end;
     end;

cu ;)
Narses

Tilman - Do 04.09.08 23:04
Titel: Re: Mehrdimensionales Array sortieren und in Stringgrid ausgeben

So wie narses sagt würde es gehen, oder du definierst einen eigenen datentyp als record, etwa so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

type TEintrag = record
  name,telefon,vorname: string;
end;

var
  eintrag: array[0..255] of tEintrag;

procedure TForm1.btn_vornameClick(Sender: TObject);
var i,j : Integer;
help : TEintrag;
begin

     for i:=1 to speicherplaetze do
     begin
         for j:=1 to speicherplaetze-1 do
         begin
              if eintrag[j].name > eintrag[j+1].name then
              begin
              help:=eintrag[j+1];
              eintrag[j+1]:=eintrag[j];
              eintrag[j]:=help;
             end;
         end;
     end;

for i:=1 to speicherplaetze do
    begin
    stringgrid1.cells[1,i] := eintrag[i].name;
    stringgrid1.cells[2,i] := eintrag[i].vorname;
    stringgrid1.cells[3,i] := eintrag[i].telefon;
    end;
end;

("blind" getippt, hoffe es stimmt)

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!