overfør aktuel indhold i Dbedit til *.txt fil

VAR
  Cnt : Integer;
  L : TStringList;
  Obj : TObject;
begin
  L := TStringList.Create;
  for Cnt := 1 to antalEditfelter do
  begin
      Obj := FindComponent(\'DBEdit\'+IntToStr(Cnt));
  if Obj <> NIL then
begin
    L.Add(TDBEdit(Obj).Text);
end;
  end;
  L.SaveToFile(\'DBeditData.txt\');
  L.Free;
end;

Prøv sådan, nemt og efektivt

/Martin

hvorfor henter den kun data fra 3 dbedit?
den burde hente data fra de 10 dbedit(1 to 10)

Hvor er det lige du ser det kun er fra 3 ???

antalEditfelter = det antal du har

/Martin

fordi det kun er indhold fra 3 dbedit,som bliver vist i DBeditdata.txt.
\"jeg har skrevet 1 to 10\" så indholdet burde lægges i dbeditdata.txt fra de 10 dbedit, men indholdes i dbeditdata.txt viser kun indhold fra 3 dbedit.

Hvis dine DBEdit felter hedder DBEdit1-10 så burde virke, prøv at check om den finder componenten med findcomponent();

/Martin

ups... troede at den gik efter TdbEdit,så det er da soleklart at den ikke kan finde dbedit.
så nu virker den på felterne.
men hvordan får man den til at lave en ny dbeditdata.txt, og ikke overskrive den gamle?
de data fra den aktuelle post skal gemmes i en fil,
og næste aktuelle post skal gemmes i fil?
f.eks dbeditdata0,txt to dbeditdataxxxxx.txt

Du kan evt. gemme i en TextFile, den kan du lave append på, eller må du lave noget med en tæller, og så finde udaf hvor langt du er nået hver gang du starter på prog.

/Martin

er det ikke muligt at istedet for at overskrive indholdet i dbeditdata.txt, at den forsætter fra da den blev gemt sidste gang?

Jo, du kan gøre sådan :

VAR

L2 : TStringList;

begin

L2 := TStringList.Create;
L2.LoadFromFile();
L2.AddStrings(L);
L.SaveToFile();
L2.Free;

end;

/Martin

PS. så får du altså ikke mere for den 25øre *G*