Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Stringgrids (https://www.delphipraxis.net/5417-stringgrids.html)

Coder18 5. Jun 2003 13:36


Stringgrids
 
Hallo!

Ich habe gerade erst angefangen mit Delphi zu programmieren und möchte wissen, wie ich durch Simikola getrennte Daten aus einer CSV-Datei zu verschiedenen Spalten eines Stringgrids zuordnen kann!

Danke im Voraus!

freakTAB 5. Jun 2003 14:21

Ist relativ einfach die daten kriegst du mit Pos() und Copy() aus der eingelesenen Zeile "ausgeschnitten" und dann gibt es die Eigenschaften Cells vom StringGrid das ist n Array Cells[x,y] von Strings dort einfach per doppelter Schleife wieder eintragen.

dopeline 5. Jun 2003 17:36

ich weiß nicht, hift dir das vielleicht weiter? (habs auf ner krüpp-sprachen-seite gefunden (hierher))

Delphi-Quellcode:
procedure TMainForm.actOpenExecute(Sender: TObject);
var
  csv: TextFile;
  stl: TStringList;
  st: String;
  i: Integer;
begin
  OpenDialog1.Filter := 'csv ƒtƒ@ƒCƒ‹ (*.csv)|*.CSV';
  if OpenDialog1.Execute then
    stl := TStringList.Create;
    try
      AssignFile(csv,OpenDialog1.FileName);
      Reset(csv);
      try
        while not EOF(csv) do
        begin
          Readln(csv,st);
          StrColGrid1.RowCount := StrColGrid1.RowCount+1;
          stl.CommaText := st;
          for i:=0 to stl.Count-1 do
          begin
            StrColGrid1.Cols[i+1].Strings[i+1] := stl.Strings[i];
          end;
        end;
      finally
        CloseFile(csv);
      end;
    finally
      stl.Free;
    end;
end;
wenn dir das hift...

Gruß, dopeline :dancer:

Coder18 11. Jun 2003 11:49

Danke für eure Hilfe konnte beides verwenden! :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:13 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz