Hallo Leute
Habe folgende Problemchen mit meinem StringGrid:
Übertrage Messwerte in ein StringGrid. Nachdem ich dieses speichere und wieder aufrufe sollen neue Werte dazu kommen.
Jetzt sollen diese natürlich an die nächste Stelle der Grids angehängt werden.
Mein Quelltext fügt diese aber an das Ende des Grids das mit 100 vorgegeben ist hinzu.
Delphi-Quellcode:
procedure TForm1.bestehendenAuftragladen1Click(Sender: TObject);
var
n : integer;
f : textfile;
zeile,pfad,verz,datei : string;
laufwerk: char;
MyStringList: TstringList;
begin
MyStringList := TStringList.Create;
StringGrid1.Rowcount := 100;
if
OpenDialog1.Execute
then begin
try
pfad := opendialog1.filename;
ProcessPath(pfad,laufwerk,verz,datei);
assignfile(f,opendialog1.filename);
MyStringList.CommaText := ChangeFileExt(datei,'');
Panel2.Caption := MyStringList[0];
Panel7.Caption := MyStringList[1];
finally
FreeAndNil(MyStringList);
end;
opendialog1.filename;
reset(f);
for n := 1 to 100 do begin
readln(f,zeile);
StringGrid1.cells[1,n] := zeile;
readln(f,zeile);
StringGrid1.cells[2,n] := zeile;
readln(f,zeile);
StringGrid1.cells[3,n] := zeile;
readln(f,zeile);
StringGrid1.cells[4,n] := zeile;
end;
closefile(f);
end;
end;
Wäre auch nicht schlecht wenn Ich die Größe des Feldes nicht vorgeben müsste,
sondern diese sich nach der größe der Datei/Grids richtet.
Hab diese Sachen schon mit der eoF- funktion versucht. Komme aber auf keinen grünen Zweig!!
Danke im Vorraus!