StringGrid abfragen, ob eine zeile beschrieben ist (???)

[dopeline]

Hallo!

ich will abfragen, ob die oberste zeile (eingestellt: tabelle kann nur zeilenweise markiert werden) einen inhalt (string) hat. wenn ja soll er zur nächsten (2.) zeile springen und dort was (namen) eintragen. wenn nicht, soll er in zeile 1 anfangen zu schreiben.

Der hintergrund ist der: ein adressbuch. in einem eingabefenster werden edit-felder in eine globale variable eingelesen und sollen in dem stringgrid ausgegeben werden. für jeden neuen eintrag soll er in der tabelle eine zeile weiter runter "rutschen". und das immer so weiter...

hab es zwar hinbekommen, dass er den eintrag in die erste zeile schreibt, aber sobalt ich einen neuen eintrag erstelle, wird der erste überschrieben. kann man das vielleicht mit einer (oder mehreren) schleifen lösen?


Grüße, dopeline

[dde]

Ich könnte dir vorschlagen, dass der Benutzer direkt in die StringGrids schreibt, anstatt die Edit-Felder zu gebrauchen.
Um direkt in die StringGrids schreiben zu können, änderst du den Wert "goEditing" des StringGrids auf true (StringGrid1->Objekt-Inspektor->Options->goEditing->True)

oder versuchs mal mit diesem code (nicht getestet):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x,i:integer;
begin
x:=0;
for i:=StringGrid1.RowCount downto 1 do
begin;
inc(x);
if StringGrid1.Cells[1,x]<>'' then StringGrid1.Cells[1,x+1]:=Edit1.Text
else StringGrid1.Cells[1,x]:=Edit1.Text;
if StringGrid1.Cells[1,x+2]='' then break;
end;
end;

[dopeline]

Danke, aber ich hab schon eine andere möglichkeit gefunden. (ist ein bischen kopmliziert und hab jetzt keine zeit, das zu erklären )

Gruß, dopeline