Adressen in Stringgrid Feld schreiben

[tobiasw]

hi
folgendes Prob wie man an meinem Code erkenne kann werden Adresse Daten in ein Stringgrid geschrieben nur mein Prob ist es das wenn ich schon Adressen drinnen habe er mir diese überschreibt, dehalb habe ich mir gedacht ich erstelle ein Label das hochzählt und in ein anderes stringgrid Feld springt. Nur das ganze funzt net. Vielleicht entdeckt ja jemand den Fehler, oder jemand hat eine besssere Lösung.

Delphi-Quellcode:

adress_typ=record
name, vorname, strasse, hausnummer, wohnort, telefonnummer:string;
end;

var
  Form1: TForm1;
Adresse:adress_typ;
test:string   ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
test:=(FloatToStr (StrToFloat (test) +1));
Label1.Caption:= FloatToStr (StrToFloat (test));


adresse.name:=edit1.text;
adresse.vorname:=edit2.text;
adresse.strasse:=edit3.text;
adresse.hausnummer:=edit4.text;
adresse.wohnort:=edit5.text;
adresse.telefonnummer:=edit6.text;
for i:=1 to 5 do begin

StringGrid1.Cells [1,inttostr (Label1.Caption)]:= adresse.name;
StringGrid1.Cells [2, i]:= adresse.vorname;
StringGrid1.Cells [3, i]:= adresse.strasse    ;
StringGrid1.Cells [4, i]:= adresse.hausnummer;
StringGrid1.Cells [5, i]:= adresse.wohnort;
StringGrid1.Cells [6, i]:= adresse.telefonnummer;
end;
    end;

[Wuaegner]

inttostr (Label1.Caption)]:= Das kann nicht gehen, die Caption ist ein String.

[ibp]

1. entweder du du nimmst eine varible, in der du die spalte speicherst
2. oder du nutzt colcount und erweiterst das sg um 1 spalte wenn du die daten übernimmst!

[tobiasw]

ich hatte vorher da stehen
StringGrid1.Cells [1,StrToInt (Label1.Caption)]:= Edit1.Text; und das ging auch nicht daher kommt das
Das aktzeptiert delphi dann meldet aber dann beim schreiben der Daten in ein Stringgrid das es kein gültiger Gleitkommawert sei.

@ibp kannst du mir das an dem Code erläutern

[ibp]

so oder du schreibst gleich in das stringgrid (dann in options goediting ansehen!)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.colcount:=6;  
  StringGrid1.rowcount:=1;  
  StringGrid1.Cells [1,0]:='name';
  StringGrid1.Cells [2,0]:='vorname';
  StringGrid1.Cells [3,0]:='strasse';
  StringGrid1.Cells [4,0]:='hausnummer';
  StringGrid1.Cells [5,0]:='wohnort';
  StringGrid1.Cells [6,0]:='telefonnummer';
end;

procedure TForm1.Button1Click(Sender: TObject);
var inzeile:integer;
begin
  inzeile:=StringGrid1.rowcount+1
  StringGrid1.rowcount:=inzeile;    

  StringGrid1.Cells [1, inzeile]:=edit1.text;
  StringGrid1.Cells [2, inzeile]:=edit2.text;
  StringGrid1.Cells [3, inzeile]:=edit3.text;
  StringGrid1.Cells [4, inzeile]:=edit4.text;
  StringGrid1.Cells [5, inzeile]:=edit5.text;
  StringGrid1.Cells [6, inzeile]:=edit6.text;
end;

[tobiasw]

da bekomm ich die Meldung bei StringGrid1.rowcount:=inzeile; Operator oder Semikolon fehlt

[ibp]

dann schreib halt in der zeile davor das vergessene semikolon hin!

[tobiasw]

das ist nicht das Problem ich habe so ne Meldung das er ( erwartet hat aber := gefunden hat

[tobiasw]

hat denn keiner eine Lösung

[Wuaegner]

Pushen ist nicht erlaubt
Ich hab den Code übernommmen und bei mir klappts.
Bei welcher Zeile kommt bei dir die Fehlemeldung?