Textdatei in StringGrid anzeigen?

[Borschti]

Hallo,

ich habe ein paar Probleme mit dem einlesen einer Textdatei in eine StringGrid Komponente und zwar soll meine Textdatei so aufgebaut sein:

52323; Müller; Hans; Kühle Bäume 12; 43186; Jesberg;
37459; Schmidt; Jörg; Am Schergarten 3; 84920; Sachsenhausen;
...

Also die Verschiedenen Datensätze sollen untereinander stehen und die Einträge für die einzelnen Zellen sollen durch Semikolons getrennt sein.

Also die Datei habe ich schon durch einen TOpenDialog geöffnet und in den Zwischenspeicher abgelegt.
Nun weiß ich aber nicht weiter, wie kann ich Delphi Signalisieren das es den Inhalt zwischen den Semikolons in die einzelnen Zellen packen soll und am Ende einer Zeile in die nächste Zeile springen soll und dort von vorne anfangen soll...

Mit Pos und PosEx habe ich es schon versucht aber bei einer angestrebten Menge von 10 Datensätzen wird der Quelltext einfach zu riesig.

Fallls jemand ein paar Tipps oder vielleicht ein gut Kommentiertes Beispiel bzw. Tutorial kennt, wie ich die Sache angehen könnte, wäre ich sehr dankbar.

Ich hoffe ich bin in dem Forenbereich hier richtig, falls nicht bitte verschieben :wink:

mfg

[marabu]

Hallo,

die Spalten und Zeilen eines StringGrid kannst du als StringList ansprechen:

Delphi-Quellcode:

Explode(Line[i], ';', StringGrid.Rows[iRow]);

Explode

Grüße vom marabu

[Thanatos81]

Ohne Explode geht auch:

Delphi-Quellcode:

var  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('d:\test.csv');
  try
    StringGrid1.Rows[1].Delimiter :=';';  //Trennzeichen festlegen
    StringGrid1.Rows[1].DelimitedText := sl[1];  //getrennten Text zuweisen
  finally
    FreeAndNil(sl);
  end;

//Edit Explode heißt das Ding nicht Explore :oops:

[marabu]

Hallo Thomas,

Borschti hat seine Delphi Version nicht angegeben, aber wenn er eine der neueren Versionen benutzt, dann kann er mit der property StrictDelimiter zum Ziel gelangen. Ohne diese Funktionalität trennt der interne Parser auch bei Leerstellen.

Freundliche Grüße

[Borschti]

Also erstmal danke für die Antworten, also ich benutze Delphi 7.

Werde mir eure Vorschläge mal genauer anschaun.

[Thanatos81]

Zitat:

Zitat von marabu

Hallo Thomas,

Borschti hat seine Delphi Version nicht angegeben, aber wenn er eine der neueren Versionen benutzt, dann kann er mit der property StrictDelimiter zum Ziel gelangen. Ohne diese Funktionalität trennt der interne Parser auch bei Leerstellen.

Freundliche Grüße

Ui, das wusste ich auch noch nicht, wahrscheinlich weil ich selber kaum mit den Delimitern arbeite ;-) Aber Danke für den Hinweis, man lernt ja nie aus!

[mkinzler]

weitere lösung CSVDataSet + DBGrid

[Borschti]

Zitat:

Zitat von Thanatos81

Delphi-Quellcode:

var  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('d:\test.csv');
  try
    StringGrid1.Rows[1].Delimiter :=';';  //Trennzeichen festlegen
    StringGrid1.Rows[1].DelimitedText := sl[1];  //getrennten Text zuweisen
  finally
    FreeAndNil(sl);
  end;

Hallo,

also für diese Möglichkeit Interessiere ich mich wohl am meisten, kann man das vielleicht auch mit einem TOpenDialog machen?
Wenn ja, wie könnte ich das am besten umsetzen? Hab das gerade mal versucht aber dabei kam nichts vernünftiges heraus :/

[DeddyH]

Delphi-Quellcode:

var  sl: TStringList;
begin
  if OpenDialog.Execute then
    begin
      sl := TStringList.Create;
      try
        sl.LoadFromFile(OpenDialog.FileName);  //ausgewählte Datei einlesen
        StringGrid1.Rows[1].Delimiter :=';';  //Trennzeichen festlegen
        StringGrid1.Rows[1].DelimitedText := sl[1];  //getrennten Text zuweisen
      finally
        FreeAndNil(sl);
      end;
    end;

[Borschti]

Super hat geklappt, danke ;)

Aber jetzt liest er ja nur die erste Zeile meiner Text Datei ein, ich will aber das die jeweils zweite Zeile meiner Datei in die zweite Zeile des StringGrids, die dritte Zeile meiner Datei in die dritte Zeile des StringGrids usw. eingelesen wird.

Also ich bin jetzt soweit das ich mit einer Schleife zwar alle Felder des StringGrids ausfüllen kann aber halt nur mit dem Inhalt der ersten Zeile meiner Datei...

Ich hoffe ich konnte das jetzt einigermaßen gut vermitteln :?

Also ich bräuchte einen Befehl mit dem Delphi beim übertragen der Daten in das StringGrid am Ende einer Zeile in die nächste Zeile springt und dort mit dem einlesen von vorne anfangt bis er wieder am Ende der Zeile angelangt ist usw...
Ich habe gehört das dies mit einem Carriage Return Symbol möglich ist, nur weiß ich nicht wie ich das in einer for-Schleife bzw. überhaupt einbinden kann :/

schonmal danke für alle Antworten,

mfg
Alex

[DeddyH]

Die Datei ist schon komplett eingelesen wordem, aber durch mein C & P ist die Limitierung auf Index 1 übriggeblieben. Du musst also nur nach dem Einlesen eine Schleife einbauen und die [1] durch [Schleifenvariable] ersetzen, dann sollte es schon gehen.

[Borschti]

Hat sich erledigt, Augen aufmachen hilft ;)

[marabu]

Hallo Alex,

mit dem Code aus dem vorigen Beitrag wird die erste Zeile aus deinen Beispieldaten so verarbeitet, dass die Straße "Kühle Bäume 12" auf drei Spalten verteilt wird - aber das wirst du später noch irgendwann merken.

Delphi-Quellcode:

procedure FillGrid(sg: TStringGrid; lines: TStrings; delim: Char);
var
  i: Integer;
begin
  for i := 0 to Pred(lines.Count) do
    Explode(lines[i], delim, sg.Rows[sg.FixedRows + i]);
end;


var  
  sl: TStringList;
begin
  if OpenDialog.Execute then
  begin
    sl := TStringList.Create;
    try
      sl.LoadFromFile(OpenDialog.FileName);  //ausgewählte Datei einlesen
      FillGrid(StringGrid, sl, ';');
    finally
      sl.Free;
    end;
  end;
end;

Getippt und nicht getestet.

Freundliche Grüße

[Borschti]

Danke für den Code, das das Programm dann Leerzeichen auch als Trennzeichen aufgenommen hätte wäre in dem Moment auch kein Beinbruch gewesen, aber wenn es nicht so ist, ist es natürlich besser ;)

Aber eine Frage bleibt mir noch...was muss ich denn im uses Abschnitt einbinden damit Delphi was mit Explode anfangen kann?

[DeddyH]

Kopier die oben verlinkte Funktion in Deine Unit.

[Borschti]

Ja, hab ich aber er zeigt mir die Fehlermeldung "Undefinierter Bezeichner:'Explode'" an.

[DeddyH]

Dann schreib mal als letzte Zeile vor "implementation"

Delphi-Quellcode:

procedure Explode(const s, delimiter: String; items: TStrings);

[Borschti]

Hab ich gemacht der Fehler bleibt aber weiterhin bestehen.

Bisd du dir sicher das ich nichts im uses Abschnitt einbinden muss?

[DeddyH]

Zeig doch mal die Unit.

[Borschti]

Hier bitte, also da sollten die für die Sache wichtigen Dinge zu sehen sein ;)
Ich Habe

Delphi-Quellcode:

procedure Explode(const s, delimiter: String; items: TStrings);

an verschieden stellen eingesetzt ich markier einfach mal die entsprechenden Stellen mit einem Kommentar.

Delphi-Quellcode:

unit UnStringGrid;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, StrUtils, Printers, ClipBrd, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    MainMenu1: TMainMenu;
    datei: TMenuItem;
    drucken: TMenuItem;
    ffnen1: TMenuItem;
    Druckereinstellungen1: TMenuItem;
    Drucken1: TMenuItem;
    PrintDialog1: TPrintDialog;
    AlleFelderlschen1: TMenuItem;
    StringGrid1: TStringGrid;
    Beenden1: TMenuItem;
    procedure ffnen1Click(Sender: TObject);
    procedure Druckereinstellungen1Click(Sender: TObject);
    procedure Drucken1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    //Hier
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
// und hier so wie du gesagt hast.
implementation

 
{$R *.dfm}

procedure FillGrid(sg: TStringGrid; lines: TStrings; delim: Char);
var
  i: Integer;
begin
  for i := 0 to Pred(lines.Count) do
    Explode(lines[i], delim, sg.Rows[sg.FixedRows + i]);
end;


procedure TForm1.ffnen1Click(Sender: TObject);
var
  sl: TStringList;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringList.Create;
    try 
      sl.LoadFromFile(OpenDialog1.FileName);
      FillGrid(StringGrid1, sl, ';');
    finally
      sl.Free;
    end; 
  end; 
end;

[DeddyH]

Tja, und wo ist die Prozedur Explode geblieben?

Delphi-Quellcode:

unit UnStringGrid;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, StrUtils, Printers, ClipBrd, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    MainMenu1: TMainMenu;
    datei: TMenuItem;
    drucken: TMenuItem;
    ffnen1: TMenuItem;
    Druckereinstellungen1: TMenuItem;
    Drucken1: TMenuItem;
    PrintDialog1: TPrintDialog;
    AlleFelderlschen1: TMenuItem;
    StringGrid1: TStringGrid;
    Beenden1: TMenuItem;
    procedure ffnen1Click(Sender: TObject);
    procedure Druckereinstellungen1Click(Sender: TObject);
    procedure Drucken1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    //Hier
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

procedure Explode(const s, delimiter: String; items: TStrings);

implementation


{$R *.dfm}

procedure Explode(const s, delimiter: String; items: TStrings);
begin
  items.CommaText := StringReplace(AnsiQuotedStr(s, '"'), delimiter, '","', [rfReplaceAll]);
end;

procedure FillGrid(sg: TStringGrid; lines: TStrings; delim: Char);
var
  i: Integer;
begin
  for i := 0 to Pred(lines.Count) do
    Explode(lines[i], delim, sg.Rows[sg.FixedRows + i]);
end;


procedure TForm1.ffnen1Click(Sender: TObject);
var
  sl: TStringList;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringList.Create;
    try
      sl.LoadFromFile(OpenDialog1.FileName);
      FillGrid(StringGrid1, sl, ';');
    finally
      sl.Free;
    end;
  end;
end;

[Borschti]

Ich hatte sie da eingesetzt aber als es dann doch nicht funktioniert hat hab ichs wieder rausgemacht ;)

Als Fehler kommt stattdessen [Fehler] UnStringGrid.pas(40): Ungenügende Forward- oder External-Deklaration: 'Explode'

[DeddyH]

Sonst nimm halt den Prototypen wieder aus dem interface-Teil raus und stell sicher, dass die Prozedur als Erstes hinter implementation steht.

[Borschti]

Es wird immernoch [Fehler] UnStringGrid.pas(65): Undefinierter Bezeichner: 'Explode' angezeigt.

[DeddyH]

Poste nochmal die Unit, da stimmt doch was nicht.

[Borschti]

Delphi-Quellcode:

unit UnStringGrid;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, StrUtils, Printers, ClipBrd, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    MainMenu1: TMainMenu;
    datei: TMenuItem;
    drucken: TMenuItem;
    ffnen1: TMenuItem;
    Druckereinstellungen1: TMenuItem;
    Drucken1: TMenuItem;
    PrintDialog1: TPrintDialog;
    AlleFelderlschen1: TMenuItem;
    StringGrid1: TStringGrid;
    Beenden1: TMenuItem;
    procedure ffnen1Click(Sender: TObject);
    procedure Druckereinstellungen1Click(Sender: TObject);
    procedure Drucken1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

procedure FillGrid(sg: TStringGrid; lines: TStrings; delim: Char);
var
  i: Integer;
begin
  for i := 0 to Pred(lines.Count) do
    Explode(lines[i], delim, sg.Rows[sg.FixedRows + i]);
end;


{$R *.dfm}




procedure TForm1.ffnen1Click(Sender: TObject);
var
  sl: TStringList;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringList.Create;
    try
      sl.LoadFromFile(OpenDialog1.FileName);
      FillGrid(StringGrid1, sl, ';');
    finally
      sl.Free;
    end;
  end;
end;

Ich habe jetzt

Delphi-Quellcode:

procedure Explode(const s, delimiter: String; items: TStrings);

wieder ganz raus gelassen da er mir sonst beide Fehlermeldungen anzeigt... :/

[DeddyH]

Du rufst in FillGrid Explode auf, hast aber den Quelltext von Explode immer noch nicht in Deine Unit kopiert.

[Borschti]

Ups ich hatte das nicht gesehn sorry für den Umstand :/