Probleme mit dem Stringgrid

read · Beiträge: 57 Win XP prof. Delphi7 + Delphi2 Developer

Hallo alle zusammen

als newbie im bereich delphiprogrammierung habe ich ein paar fragen zum thema stringgrid

1. mein programm schreibt daten aus einer textdatei in ein stringgrid und speichert diese-soweit kein problem- aber wenn ich das programm neu starte und in die bestehende datei schreiben will kommt immer erst eine leerzeile - beim nächsten buttonklick übernimmt er dann zwar die daten, aber im normalfall stehen diese nur einmalig zur verfügung - hat jemand eine idee woran das liegt??

2. habe ich editfeld - in dem ich zur bestätigung den namen abfragen will, aber er nimmt diese daten auch erst beim zweitenmal -- das heißt wenn zwei verschiedene namen nacheinander eingetragen werden wird immer nur der vom ersten angezeigt - bei 3.buttonklick wird dann der name des zweiten genommen usw. - keine ahnung was ich falsch mache

ich danke schon mal allen im voraus die mir helfen können/wollen

Keldorn · Verfasst: Sa 08.11.03 21:42

Sorry, wie soll den einer dir helfen, ohne das du Teile von deinem code zeigst ?
ansosnten wird das hier zur Rätselstunde.

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

read · Beiträge: 57 Win XP prof. Delphi7 + Delphi2 Developer

2 kehldorn

sorry, hast natürlich recht
hier mal die übergabe der daten an das stringrid+abspeichern
falls du noch den code vom laden brauchst sag bescheid

markieren

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:

begin
  StringGrid1.Rowcount := StringGrid1.Rowcount+1;
  Lastrow :=StringGrid1.Rowcount;
  StringGrid1.cells [0,Lastrow] :=label3.Caption;
  StringGrid1.cells [1,Lastrow] :=label4.Caption;
  StringGrid1.cells [2,Lastrow] :=label5.Caption;
  StringGrid1.cells [3,Lastrow] :=label6.Caption;
  StringGrid1.cells [5,Lastrow] :=label9.Caption;
  StringGrid1.cells [7,Lastrow] :=label7.Caption;
  StringGrid1.cells [8,Lastrow] :=label8.Caption;
  if edit8.Text='' then ShowMessage('Name fehlt')
  else
  StringGrid1.cells [6,Lastrow] :=edit8.Text;
  F := TStringList.Create;
  try
    F.Add(IntToStr(StringGrid1.RowCount));
    F.Add(IntToStr(StringGrid1.ColCount));
    for i := 0 to (StringGrid1.RowCount - 1) do
      F.Add(StringGrid1.Rows[i].CommaText);
    F.SaveToFile(Datei);
  finally
    F.Free;
 end;

Moderiert von Tino: Delphi-Tags hinzugefügt.

Keldorn · Verfasst: So 09.11.03 10:43

Hallo

Zitat:

StringGrid1.Rowcount := StringGrid1.Rowcount+1;
Lastrow :=StringGrid1.Rowcount;
StringGrid1.cells [0,Lastrow] :=label3.Caption;

die Zellen beginnen bei 0 zu zählen. die letzte Zellreihe ist Cells[0,rowcount-1]. Wenn du das hier in einer Listbox gemacht hättest, wäre eine Exception gekommen, das Stringgrid ist da nicht so.

entweder du drehst die ersten beiden Zeilen um, oder du schreibst

markieren

Delphi-Quelltext

1:	Lastrow :=StringGrid1.Rowcount-1;

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

read · Beiträge: 57 Win XP prof. Delphi7 + Delphi2 Developer

hallo frank - ich darf doch frank sagen??

sorry, daß ich erst jetzt antworte - war den ganzen tag unterwegs

das mit dem rowcount-1 hatte ich bereits in erwägung gezogen - funktioniert auch nicht wirklich - wenn ich nämlich dann zur laufzeit das stringgrid aktualisiere, löscht es eine zeile

read · Beiträge: 57 Win XP prof. Delphi7 + Delphi2 Developer

hallo frank

ich hatte das -1 an's falsche rowcount gehängt - jetzt funktioniert es

danke für deine hilfe

MfG

Marco

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme