Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi werte auslesen und in ini schreiben hilfee (https://www.delphipraxis.net/53160-werte-auslesen-und-ini-schreiben-hilfee.html)

slm 11. Sep 2005 14:01


werte auslesen und in ini schreiben hilfee
 
Hallo

ich habe 2 dateien die eine ist die ini datei in der die werte geschrieben werden sollen
(ini öffnen lesen schreiben ist kein problem)

[01.09.2005]
feld1=4:45
feld2=5:45
feld3=6:35
feld4=13:31
feld5=17:11
feld6=20:14
feld7=21:34

[02.09.2005]
feld1=4:41
feld2=5:46
feld3=6:36
feld4=13:30
feld5=17:09
feld6=20:12
feld7=21:30


und die zweite ist die datei in der die werte enthalten sind

[01.09.2005]
1 4:39 5:45 6:35 13:31 17:11 20:14 21:34
2 4:41 5:46 6:36 13:30 17:09 20:12 21:32
3 4:43 5:48 6:38 13:30 17:08 20:10 21:30
.
.
.
30 4:53 5:55 6:45 13:28 17:01 19:59 21:19


jetzt soll aus 1 2 3... 30 das datum erzeugt werden und dann in die ini als schlüssel eingetragen werden

desweiteren sollen die uhrzeiten in die felder eingetragen werden und hier ist mein problem wie stelle ich das an.

bitte um hilfe hab nichts brauchbares gefunden.


mfg slm

Luckie 11. Sep 2005 14:24

Re: werte auslesen und in ini schreiben hilfee
 
Mit Hier im Forum suchenExplode und dem Leerzeichen als Trennzeichen kannst du jede Zeile einfach zerlegen. Der Rest sollte sich von allein ergeben.

Sharky 11. Sep 2005 14:25

Re: werte auslesen und in ini schreiben hilfee
 
Hai slm,

Zitat:

Zitat von slm
..desweiteren sollen die uhrzeiten in die felder eingetragen werden und hier ist mein problem wie stelle ich das an. ...

Du müsstest jede einzelene Zeile deiner Datei auswerten.
Code:
1 4:39 5:45 6:35 13:31 17:11 20:14 21:34
Diese Zeile kannst z.B. mit der DelimitedText-Funktionalität der TStringListe aufteilen. (Oder mit dieser Funktion aus der Code-Library).

Hier mal etwas Pseudocode:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';
    sl.DelimitedText := '1 4:39 5:45 6:35 13:31 17:11 20:14 21:34';
    Datum := sl.Strings[0];
    feld1 := sl.Strings[1];
    // usw.
  finally
    sl.Free;
  end;
end;

slm 11. Sep 2005 14:33

Re: werte auslesen und in ini schreiben hilfee
 
ok ich danke euch

denke hab jetzt meine anhaltspunkte


:thumb:


slm


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:21 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