Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Sep 2008
Naja, jetzt hab ichs schon fertig, funktioniert alles,
bis auf das mit den leeren Feldern.
Wenn einer keine Werte eingibt, dann lass ich es jetzt so.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Sep 2008
Fehler, hab ich schon korrigiert :oops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Sep 2008
Noch eine Frage, ich möchte für alle 10 Edit-Felder überprüfen ,
ob ein Zeichen eingegeben wurde.
Kann man den Code abkürzen ?
if Edit1.Text = '' then application.messagebox('Geben Sie einen Wert ein','Hinweis',48);
if Edit2.text =''..................
......das hab ich schon probiert, hat aber nicht funktioniert....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Sep 2008
So ein Mist :wall:
Schon wieder ein Fehler
Aber nur wenn die Datei noch nicht exitiert, dann erscheint immer die Meldung
EFCreateError mit der Meldung 'Datei 'Test.txt'kann nicht erstellt werden . Der Prozess kann nicht auf die Daten zugreifen , da sie von einem anderen Prozess verwendet wird'
Wenn die Datei existiert, dann läuft alles einwandfrei !
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Sep 2008
so natürlich
Stringlist.LoadFromFile('Test.txt');
if Stringlist.Count = AnzahlEdits then
begin
.
.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Sep 2008
Ich hab die Lösung gefunden
if Stringlist.Count = AnzahlEdits -1 then
begin
Stringlist.LoadFromFile('Test.txt')......................
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Sep 2008
Ich habs doch gesagt , wenn die Strings wieder in die Edits geladen werden
procedure TForm4.FormShow(Sender: TObject);
begin
Stringlist.LoadFromFile('TEST.txt');
Edit1.Text:= Stringliste.Strings;
Edit2.Text:= Stringliste.Strings;
.
.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Sep 2008
Speichern funktioniert, aber das Laden nicht.
Wenn man in der Eingabemaske was veränder will ,
müssen die Werte doch wieder erscheinen
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Sep 2008
Ich meine, wie werden die Strings wieder in den Edits angezeigt ?
procedure TForm4.FormShow(Sender: TObject);
begin
Stringlist.LoadFromFile('TEST.txt');
Edit1.Text:= Stringliste.Strings;
Edit2.Text:= Stringliste.Strings;
.
.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Sep 2008
Die Strings werden gespeichert und beim Programmstart werden dieselben Werte
wieder in die Edits eingfügt.
Praktisch umgekehrt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Sep 2008
Okay
Aber wie schreib ich das beim Programmstart,
wenn die Stringlist die Strings in die Edit-Felder schreibt,
und einige Felder leer sind ?
procedure TForm4.FormShow(Sender: TObject);
begin
Stringliste.LoadFromFile('TEST.txt');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Sep 2008
ist mir ein Fehler passiert
TEdit(Components).text