Hallo ihr,
Ich entwickle einen Spielplan.
In meinem Programm gibt es vier Editierfelder. (Datum, Uhrzeit, Spieltyp)
Per Buttonklick werden die Strings der Editierfelder in einer Ini-Datei gespeichert.
Der Abschnitt heißt immer wie der String aus dem jeweiligen Editierfeld Datum + eine Integerzahl.
In einem weiteren Editierfeld soll der Nutzer die Möglichkeit haben, ein Datum einzugeben und dann alle Termine angezeigt bekommen.
So sieht meine Lösung aus, nur wie definiere ich (weiter unten) "Irgendeine Integerzahl" anstatt hier: J:=2 ?
Wie mach ich das dann, das alle angezeigt werden.
Bitte helft mir, hab nicht viele Kenntnisse. Danke!!!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
I:=I+1;
Wort:=Edit1.Text+FloatToStr(I);
Wort2:=Edit4.Text+FloatToStr(I);
begin
//TIniFile wird geladen
with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data.ini') do
try
//Top wird geschrieben, Left wird geschrieben
WriteString(Wort, 'Edit1', Edit1.text);
WriteString(Wort, 'Edit2', Edit2.text);
WriteString(Wort, 'Edit3', Edit3.text);
ReadSections(Listbox1.Items);
finally
//Ini wird freigegeben
Free;
end;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
I:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
J:=2;
Wort3:=Edit4.Text+FloatToStr(J);
with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data.ini') do
if SectionExists(Wort3) then
begin
Edit4.Text:='Juhu, es funzt';
ReadSection(Wort3, Listbox2.Items);
end
else begin Edit4.Text:='NÖ!';
end;
end;