Tableaux indexéRésolu

Question

Salut &#224; tous,
Peut &#234;tre que ma question est toute b&#234;te ...

Je voudrais cr&#233;er un tableau index&#233; (ou liste chain&#233;e) avec mes valeurs et pas syst&#233;matiquement 0,1,2,3

ex delphi que je voudrais:
var  
  Tab : array of string;
begin
  SetLength(Tab,3);
  Tab[8]:='toto';
  Tab[20]:='tata';
  Tab[40]:='tutu';
end;

Comparaison en PHP
  Tab[8]='toto';
  Tab[20]='tata';
  Tab[40]='tutu';
Voir encore mieux
  Tab['coucou']='toto';
  Tab['Test']='tata';
  Tab['momo']='tutu';

Si quelqu'un &#224; une id&#233;e en delphi comment faire, soit par une liste chain&#233;e ou soit par un tableau.

Merci d'avance .

Dimdidi

jinh68 · Accepted Answer

Oui effectivment, avec la TStringlist, tu peux feinter:



Exemple:



procedure TForm1.Button1Click(Sender: TObject);

var ts:TStringList;

begin

  ts := TStringList.Create;

  ts.Add('toto=coucou');

  ShowMessage(ts.Values['toto']);

  ts.free;

end;



Cela permet d'avoir une indexation par cha&#238;ne.


j!nH

yvessimon · Answer

les indice 8 20 40 sont-il fixe ?

Si non il faut r&#233;server de la place m&#233;moire ..

yvessimon

dimdidi · Answer

Oui, dans un premier temps, les indices peuvent &#234;tre fixe.


Dimdidi

jinh68 · Answer

Tu pourras pas avec un array, car il r&#233;serve si possible des blocs de
m&#233;moires contigus. Tu vas donc avoir des r&#233;servations inutiles.



Utilises peut &#234;tre un Set du style type IndicesTab = ( coucou, test, momo).








j!nH

florenth · Answer

Les tableaux dynamiques en Delphi ne sont pas comme en php.

En php, il est possible (par la fonction array() ) d'indexer les cases
de son tableau de mani&#232;re quelconque (et par forc&#233;ment 0,1,2,3 ...) ou
m&#234;me avec des chaines.



En php, tes exemples donneraient

$Tab array(8> "toto", 20 => "tata", 40 => "tutu")



ou encore mieux, $Tab array("Coucou"> "toto", "Test" => "tata", "momo" => "tutu")



En Delphi ce n'est pas possible normalement.

Il est cependant possible de "tricher" mais je ne me souviens plus trop comment. (avec un TSTringList).



 @ ++

Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

dimdidi · Answer

Ca marche nickel 

Merci &#224; tous 

Dimdidi

florenth · Answer

Mais cela ne marche que pour imiter un array of string - et pour les
donn&#233;es qui peuvent &#234;tre stock&#233;es sous forme de cha&#238;nes - mais dans le
cas d'un record .... c'est une autre histoire



Mais l'important est que cela marche pour toi et que cela r&#233;solve ton probl&#232;me.



@ ++

Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

dimdidi · Answer

Ok,
Juste une id&#233;e qui ouvre beaucoup d'ouverture.
Si vous pouvez me dire ce que vous en pensez (ca fonctionne)

//En Global
  TInfo = class (TObject)
  public
    sValeur1 : string;
    sValeur2 : string;
  end;

  ts : TStringList;

//Fonction
procedure TForm1.Button2Click(Sender: TObject);
var
  test:TInfo;
begin
  test:=TInfo.Create;
  test.sValeur1:='msg';
  test.sValeur2:='Coucou';
  ts:=TStringList.create;
  ts.InsertObject(0,'MM',test);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;  
begin
  for i:=0 to ts.count-1 do
  begin
    if (TInfo(ts.Objects[i]).sValeur1='msg') then
      ShowMessage(TInfo(ts.Objects[i]).sValeur2);
  end
end;

A+


Dimdidi

Tableaux indexé

8 réponses

Votre réponse

Discussions similaires