Delphie 5:

Moin Leuz...

Such schon lange ein Algorithmus indem man aus 5 Editfeldern alles in eine Textdatei speichert!

Das heist: Alle begriffe und zahlen aus den Editfeldern (5 an der Zahl) sollen in einer .txt Datei gespeichert werden.

Allerdings soll der name der txt-Datei aus dem 6. Editorfeld erstellt werden!!!

Bitte um Hilfe!!!

Danke!!

mfg schoenwetterflieger

Hi,
Guck dir mal die TStringlist an.

markieren

Delphi-Quellcode:

TStringlist := TStringlist.create;
TStringlist.add(edit1-5.text);
TStringlist.SaveToFile(edit6.text);
FreeAndNil(Tstringlist);

So könnte es aussehen.


greetz

Etwa so:

markieren

Delphi-Quellcode:

AssignFile(afile, edit6.text); //Dateiname
Rewrite(afile);
Writeln(afile, edit1.Text); //Speichere Edit1 Inhalt
Writeln(afile, edit2.Text); //Speichere Edit2 Inhalt
// usw.
Closefile(afile);

Würde ich einfach so machen:

zusammenfalten · markieren

Delphi-Quellcode:

var
 datei: textfile;
begin
 assignfile(datei,edit6.text);
 rewrite(datei);
 writeln(datei,edit1.text);
 writeln(datei,edit2.text);
 writeln(datei,edit3.text);
 writeln(datei,edit4.text);
 writeln(datei,edit5.text);
 closefile(datei);

[ADD]Mist, PierreB war schneller [/ADD]

Die Forensuche hätte dich da schon weiter gebracht...

zusammenfalten · markieren

Delphi-Quellcode:

function DateiInStringLaden(Datei : string) : string;
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;
  Inhalt.LoadFromFile(Datei);

  SetLength(Result, Inhalt.Size);
  Inhalt.Read(Result[1], Inhalt.Size);

  Inhalt.Free;
end;

procedure StringInDateiSpeichern(Datei, Uebergabe : string);
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;

  Inhalt.Write(Uebergabe[1], Length(uebergabe));


  Inhalt.SaveToFile(Datei);
  Inhalt.Free;
end;

StringInDateiSpeichern(Edit1.Text + #13#10 + Edit2.Text..., Edit6.Text); Sollte Funktionieren...

@Chrissi91

das funzt perfekt!!!

und Danke @ all! Ihr seid spitze und mega schnell!!!!!!

jeze aber noch was..

ich wollte es in ein ordner verschieben, das was aus edit6.txt gespeichert wird

(datei,edit6.text) also in den ordner: laufen (datei,laufen/edit6.text)

oder??

es geht aber nich!!!

Wenn ich mich nicht irre und dich richtig verstehe, dann suche mal in der DP nach CreateDirectory

[ADD]Hm, ich glube, du meintest etwas anderes. Mach es doch so:

assignfile(datei,'laufen\'+edit6.text) [/ADD]

assignfile(datei,edit6.text); Dann übergib an dieser Stelle statt edit6.text einfach eine Variable wo der komplette Pfad zu deinem Ordner drin steht.

thanks es funzt!!

danke

kiss!

mfg schoenwetterflieger