Hallo liebe Delphi-Community!
Ich habe erst vor kurzem mit der schönen Sprache Delphi begonnen und war sofort fasziniert
Nun da ich aber noch ein Anfänger bin kam ich nicht zur Lösung meines kleinen Problems
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create('C:\Users\Name\Projekt\Patienten.ini');
try
Ini.WriteString('Patient', 'Name',Edit1.Text);
Ini.WriteString('Patient', 'Vorname',Edit2.Text);
Ini.WriteString('Patient', 'Geb.Datum',Edit3.Text);
Ini.WriteString('Patient', 'Krankenkasse',Edit4.Text);
Ini.WriteString('Patient', 'Blutgruppe',Edit5.Text);
Ini.WriteString('Patient', 'Strasse',Edit6.Text);
Ini.WriteString('Patient', 'PLZ',Edit7.Text);
Ini.WriteString('Patient', 'Ort',Edit8.Text);
Ini.WriteString('Patient', 'Tel',Edit9.Text);
Ini.WriteBool('Patient','Männlich',RadioButton1.Checked);
Ini.WriteBool('Patient','Weiblich',RadioButton2.Checked);
Panel1.Font.Size:=18;
Panel1.Caption:='Gespeichert';
finally
Ini.Free;
end;
end;
Nun hier speichert er mir die Daten immer in der Spalte '[Patienten]'. Nun will ich aber, dass bei jedem Klick [Button1Click] die Patientenanzahl um 1 erhöht, dass der Patient davor nicht verloren geht. Ich hatte mir da irgendwie sowas gedacht:
Ini.WriteString('Patient'+1, 'Name',Edit1.Text);
Aber scheint nicht so ganz zu funktionieren wie ich es wollte
Könnt ihr mir bei meinem Problem helfen
MfG Little~