Textdatei in StringGrid anzeigen?

[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