Eingaben individuell abspeichern

[Perlsau]

Zitat:

Zitat von Maxi (Beitrag 1228025)

wirklich ? :D denn bin ich zu doof für delphi :0 :D

Was verstehst du denn nicht?

[bcvs]

Zitat:

Zitat von Maxi (Beitrag 1228025)

wirklich ? :D denn bin ich zu doof für delphi :0 :D

Hast du meinen Tip eigentlich mal ausprobiert? Oder hast du nur gedacht: Kann ja ja nicht funktionieren?

[milo]

Zitat:

Zitat von Maxi (Beitrag 1228019)

Der letzte tipp kann ja nicht funktionieren,da ja im Befehl insegsammt vier Anführungszeichen stehen und Delphi smit ja "+eingabe1.text+" aus dem befehl rausnimmmt:(:?

Naja, die IDE unterscheidet schon zwischen Anführungszeichen " Ansi 34 und einem Hochkommata ' Ansi 39.

Gruß :-D Michael

[Maxi]

ja, ich hab das in den verschiedensten varianten probiert ...von '' bis "" ....funktioniert alles nicht

[p80286]

Was ist an

Delphi-Quellcode:

list.SaveToFile('C:\Users\Maxi\Desktop\Neuer Ordner\'+Eingabe1.text+'.txt');

denn so unverständlich?
Ersetz Eingabe1.text durch den gewünschten Namen (z.B. 'MeineDatei.txt') und gut ist.

Gruß
K-H

[DeddyH]

Einfache Hochkommata (SHIFT + Raute) auch? Ansonsten kannst Du das auch mit Format lösen.

Delphi-Quellcode:

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]