AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ini Datein in ein StringGrid Laden

Ein Thema von Rippo · begonnen am 10. Feb 2015 · letzter Beitrag vom 24. Apr 2015
Antwort Antwort
Rippo

Registriert seit: 10. Feb 2015
75 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Ini Datein in ein StringGrid Laden

  Alt 10. Feb 2015, 10:54
Könnte mir einer ein Beispiel geben wie ich eine Ini Datei in ein StringGrid Laden kann.
das StringGrid hat 8 Spalten mit kundennr name ansprechpartner email telefon ort straße plz

Geändert von Rippo (10. Feb 2015 um 11:09 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.412 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Ini Datein in ein StringGrid Laden

  Alt 10. Feb 2015, 11:12
Quick And Dirty, gewinnt so keinen Schönheitspreis:
Delphi-Quellcode:
uses IniFiles;

const
  IniName = 'C:\Test\Test.ini';

procedure TForm38.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
  Sections: TStringlist;
  i: integer;
begin
  Sections := nil;
  Ini := TIniFile.Create(IniName);
  try
    Sections := TStringList.Create;
    Ini.ReadSections(Sections);
    StringGrid1.RowCount := StringGrid1.FixedRows + Sections.Count;
    for i := 0 to Sections.Count - 1 do
      begin
        StringGrid1.Cells[StringGrid1.FixedCols, StringGrid1.FixedRows + i] := Ini.ReadString(Sections[i], 'KundenNr', '');
        StringGrid1.Cells[StringGrid1.FixedCols + 1, StringGrid1.FixedRows + i] := Ini.ReadString(Sections[i], 'Name', '');
        StringGrid1.Cells[StringGrid1.FixedCols + 2, StringGrid1.FixedRows + i] := Ini.ReadString(Sections[i], 'Ansprechpartner', '');
        (* etc. pp. *)
      end;
  finally
    Ini.Free;
    Sections.Free;
  end;
end;
Meine Ini sieht so aus:
Code:
[Kunde1]
KundenNr=1
Name=Hans Wurst
Ansprechpartner=Jim Beam
EMail=HansWurst@kunde.de
Telefon=012345/98765
Ort=Musterstadt
Straße=Sesamstraße
PLZ=11111

[Kunde2]
KundenNr=2
Name=Hans Käse
Ansprechpartner=Johnny Walker
EMail=HansKaese@nochnkunde.de
Telefon=012345/56789
Ort=Musterstadt
Straße=Einbahnstraße
PLZ=11111
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Rippo

Registriert seit: 10. Feb 2015
75 Beiträge
 
Delphi 10 Seattle Professional
 
#3

AW: Ini Datein in ein StringGrid Laden

  Alt 10. Feb 2015, 11:23
Danke
  Mit Zitat antworten Zitat
24. Apr 2015, 06:02
Dieses Thema wurde am "24. Apr 2015, 07:02 Uhr" von "r_kerber" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Win32/Win64 API (native code)" verschoben.
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 20:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf