Edit-Felder in Stringliste speichern

[DeddyH]

Du ermittelst die Zeilenanzahl vor dem Laden der Datei? Glückwunsch, Du bist wohl ein Magier

[Thomas F]

so natürlich

Delphi-Quellcode:

Stringlist.LoadFromFile('Test.txt');
if Stringlist.Count = AnzahlEdits  then 

begin
.
.
.

[mkinzler]

Und wenn weniger oder mehr Zeilen vorhanden sind, dann wird nichts eingelesen

[Thomas F]

So ein Mist

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 !

[DeddyH]

Ich verstehe nicht, was Du da vorhast. Wenn die Datei nicht existiert, hat Dein Programm sie noch nicht angelegt (oder hat keine Rechte dazu oder oder...). In diesem Falle schreibst Du halt Standardwerte in die Edits. Beim Schließen des Programms speicherst Du nun die eingegeben Werte ab, feddich. Wozu eine leere Datei erstellen?

[Thomas F]

Zitat von DeddyH:

Ich verstehe ich, was Du da vorhast. Wenn die Datei nicht existiert, hat Dein Programm sie noch nicht angelegt (oder hat keine Rechte dazu oder oder...). In diesem Falle schreibst Du halt Standardwerte in die Edits. Beim Schließen des Programms speicherst Du nun die eingegeben Werte ab, feddich. Wozu eine leere Datei erstellen?

Stimmt !

Ich hab jetzt ne Lösung gefunden, bei der es zumindest keine Exception mehr gibt

Ganz einfach

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);

begin
if fileexists('TEST.txt') then
begin
Stringliste.LoadFromFile('TEST.txt');
Edit1.Text:= Stringlist.Strings[0];
.
.
.

filecreate lass ich ganz weg

[DeddyH]

Das sagen wir doch die ganze Zeit

[Thomas F]

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 ?

Delphi-Quellcode:

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....

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject); 
var K  , Anzahl_Edits :Integer; myEdit:String;
begin 


  for K := 1 to Anzahl_Edits do 
if
  (findcomponent(myEdit+inttostr(k)) as TEdit).text =''
then
begin
application.messagebox('Geben Sie einen Wert ein','Hinweis',48);
exit;
end;
end;

[grenzgaenger]

sag mal, was hindert dich eigentlich dafür ein stringgrid zu nehmen? da hättest doch viel weniger probleme und scheint mir besser geeignet zu sein...

[taaktaak]

Was ist

Zitat:

myEdit:Strin;

denn für ein Typ?