Eingaben individuell abspeichern

[DeddyH]

Einfache Hochkommata (SHIFT + Raute) auch? Ansonsten kannst Du das auch mit Format lösen.
Dateiname := Format('C:\Users\Maxi\Desktop\Neuer Ordner\%s.txt', [Eingabe.Text]);

[Maxi]

Hallo nochmal

lieber K-H...du hast nicht verstanden was ich möchte...ich will die Dateinnamen individuell haben...

Wenn ich: Dateiname := Format('C:\Users\Maxi\Desktop\Neuer Ordner\%s.txt', [Eingabe.Text]);[/DELPHI][/QUOTE] eingebe ,sagt er mir folgendes:

[Fehler] Unit1.pas(40): Inkompatible Typen: 'TStrings' und 'String'

ich glaub ich muss mich von meinem vorhaben verabschieden,was ?:0

[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;