brauche erklärung für typen

[Molzer]

Hallo und Danke für die zahlreichen Hilfen!!

Bei diesem habe ich ein Problem!
Zeile mit x[i].l,b,h schreibt er mir:
E2010 Inkompatible Typen: 'Integer' und 'Array'
?? warum das denn??
das selbe habe ich wenn ich etwas aus einem array (zb in einem memo)ausgeben möchte..
woran liegt das??

lg

Zitat:

Zitat von DeddyH

Und nun nochmal im Ganzen:

Delphi-Quellcode:

var x: array[1..10] of TB;

//Beim Erzeugen des Formulars die Objekte anlegen
procedure TForm2.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := Low(x) to High(x) do
    x[i] := TB.Create;
end;

//auf ButtonKlick mit Daten füllen
procedure TForm2.Button1Click(Sender: TObject);
var i: integer;
begin 
  for i := Low(x) to High(x) do
    begin
      //Länge, Breite und Höhe sind Zahlen, daher Umwandlung nötig
      x[i].l := StrToIntDef(StringGrid1.Cells[1,x],0);
      x[i].b := StrToIntDef(StringGrid1.Cells[2,x],0);
      x[i].h := StrToIntDef(StringGrid1.Cells[3,x],0);
      x[i].bez := StringGrid1.Cells[4,x];
    end;
end;

//Im OnDestroy Objekte wieder freigeben
procedure TForm2.FormDestroy(Sender: TObject);
var i: integer;
begin
  for i := Low(x) to High(x) do
    x[i].Free;
end;

[Hawkeye219]

Hallo,

Zitat:

Delphi-Quellcode:

x[i].l := StrToIntDef(StringGrid1.Cells[1,x],0);
x[i].b := StrToIntDef(StringGrid1.Cells[2,x],0);
x[i].h := StrToIntDef(StringGrid1.Cells[3,x],0);
x[i].bez := StringGrid1.Cells[4,x];

Sollte das letzte "x" in jeder Zeile nicht ein "i" sein?

Gruß Hawkeye

[DeddyH]

Stimmt, Asche auf mein Haupt :oops:

[mkinzler]

Detlef, das war doch sicher reine Absicht, um zu Testen ob er den Code versteht! :zwinker:

[DeddyH]

Naja, den Beweis hat er ja erbracht, dass dem nicht so ist :zwinker:

[Molzer]

Danke!!
Ich habs schon mit i einmal probiert und es hat nicht funkioniert, muss wohl noch etwas anderes geändert haben...

ich würde gerne noch etwas wissen..

Delphi-Quellcode:

 x[i].l := StrToIntDef(StringGrid1.Cells[1,i],0); //wozu ist die 0 am ende ([1,i]0??)
 x[i].b := StrToIntDef(StringGrid1.Cells[2,i],0);
 x[i].h := StrToIntDef(StringGrid1.Cells[3,i],0);
 x[i].bez := StringGrid1.Cells[4,i];
   memo1.lines.add(inttostr(x[i].l));//wie kann ich intdef wieder in einen strign umwandeln

leider kommt noch beim btclick ein fehler:
Erste Gelegenheit für Exception bei $75C942EB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 00463DDC in Modul 'Project1.exe'. Lesen von Adresse 067EEF60'. Prozess Project1.exe (4912)

fg

[mkinzler]

Zitat:

//wozu ist die 0 am ende ([1,i]0??)

standardwert, wenn Konvertierung fehlschlägt
Wie groß ist des das Grid?

[DeddyH]

Zur ersten Frage: StrToIntDef markieren -> F1 (das kann man ja wohl verlangen). Und zur zweiten: hat Dein StringGrid evtl. zu wenig Spalten?

[edit] *Boah* will auch Mod werden, dann kann ich Maskus' Posts vorher löschen, bevor ich meine eigenen abschicke :twisted: [/edit]

[Molzer]

Zitat:

Zitat von mkinzler

Zitat:

//wozu ist die 0 am ende ([1,i]0??)

standardwert, wenn Konvertierung fehlschlägt
Wie groß ist des das Grid?

4x10

[mkinzler]

Dann solltest du den Code so anpassen, das er die Werte aus den Zeilen statt den Spalten zieht.

Delphi-Quellcode:

.Cells[<Zeile>,<Spalte>]

Details wird dich Deltef gleich sagen