Eingaben individuell abspeichern

[DeddyH]

Vielleicht postest Du mal den gesamten relevanten Code. Wo hast Du denn da eine TStrings-Instanz?

[Maxi]

ich stelle einfach mal alles rein...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
Label1: TLabel;
Edit2: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Eingabe1,List,Dateiname:TStrings;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
list:=TStringlist.Create;
try
List.add(Edit1.Text);
list.SaveToFile('C:\Users\Maxi\Desktop\Neuer Ordner\Datei.txt');
finally
list.Free;

Dateiname := Format('C:\Users\Maxi\Desktop\Neuer Ordner\%s.txt', [Eingabe1.Text]);

end;

end;


end.

[DeddyH]

Weshalb ist Dateiname vom Typ TStrings, und wieso erstellst Du keine Instanzen von Dateiname und Eingabe1?

[edit] P.S.: Benutze doch bitte die Delphi-Tags (die "Helm"-Schaltfläche im Beitragseditor), dann kann man den Code auch besser lesen. [/edit]

[Maxi]

wie würde man das ganze denn ändern ? ich bin anfänger und bringe mir vieles selbst irgendwie bei :0

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringlist;
  Dateiname: string;
begin
  List := TStringlist.Create;
  try
    List.Add(Edit1.Text);
    Dateiname := Format('C:\Users\Maxi\Desktop\Neuer Ordner\%s.txt', [Edit1.Text]);
    List.SaveToFile(Dateiname);
  finally
    list.Free;
  end;
end;

[Maxi]

Danke Danke Danke Danke !! )

[bcvs]

Jetzt müsste aber doch auch die andere Variante funtionieren. Dann sparst du dier auch noch die Variable Dateiname.

Was mir allerdings immer noch nicht klar ist: In welches Edit gibts du den gewünschten Dateinamen ein? Ist das das Edit2? Dieses Edit muss natürlich auch in dem Parameter von SaveToFile erscheinen. Deswegen nimmt man besser aussagekräftigere Bezeichner, z.B. EditWert und EditDateiname statt Edit1 und Edit2.

In Deinem Quellcode stand da ein Eingabe1 von Typ TStings. Hättest du das wirklich so gewollt, dann hättest du dafür sorgen müssen, dass eine Instanz von Eingabe1 erzeugt wird, diese dann mir dem Wert aus Edit2 befüllt und nach der ganzen Aktion wieder entfernt, aber das wäre Blödsinn, wenn man das mit einem Einzeiler lösen kann. Wahrscheinlich hast du sowas gemeint:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringlist;
begin
  List := TStringlist.Create;
  try
    List.Add(Edit1.Text);
    List.SaveToFile('C:\Users\Maxi\Desktop\Neuer Ordner\'+Edit2.text+'.txt');
  finally
    list.Free;
  end;
end;

[DeddyH]

Laut #8 nicht, da soll der Inhalt dem Dateinamen entsprechen (wozu dann Edit2 da ist, entzieht sich meiner Kenntnis). Das kann zwar bei gewissen Zeichen Probleme machen, aber erst einmal müssen ja Grundlagen vorhanden sein, bevor es ans Eingemachte geht.