AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Stringrid

Ein Thema von RafNix · begonnen am 8. Apr 2006 · letzter Beitrag vom 6. Feb 2023
 
RafNix

Registriert seit: 15. Feb 2006
5 Beiträge
 
#1

Stringrid

  Alt 8. Apr 2006, 10:33
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!
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz