String in Txt Datei speichern

[dedeur]

Tschuldige bitte aber was bedeutet OH :gruebel:

hab das bsp versucht hat bei mir aber nur fehler ausgespuckt :cry:

oder kannst du mir das genauer erklären :-D


Gruß
dedeur

[dedeur]

OH sorry hatte n aussetzer :kotz:

hab es so versucht :coder:

Code:

Append (Text : Memo1.Lines.SaveToFile('C:\test.txt'));

klappt leider nit

[Fehler] Unit1.pas(38): Inkompatible Typen

[Sharky]

Zitat:

Zitat von dedeur

Tschuldige bitte aber was bedeutet OH ...

OnlineHilfe F1

[himitsu]

OH - halt mal die Maus über die grün unterstichenen Buchstaben << OnlineHile (das ist die in Delphi eingebaute Hilfe)

Delphi-Quellcode:

Var Datei: TextFile; 
Begin 
  Assign(Datei, 'Datei.txt'); 
  {$I-}
  Append(Datei);
  {$I+}
  If IOResult <> 0 Then Reset(Datei);
  WriteLn(Datei, Edit1.Text); 
  CloseFile(Datei);
End;

oder so:

Delphi-Quellcode:

Var SL: TStringList;
Begin
  SL := TStringList.Create;
  SL.LoadFromFile('Datei.txt');
  SL.AddStrings(Memo1.Lines);
  SL.SaveToFile('File.txt');
  SL.Free;
End;

PS: du mußt natürlich immer einiges anpassen - da ja keine weiß, wie du deine Variablen/Prozeduren/Objekte ... nennst, nehmen wir natürlich "vorwiegend" Standardnamen. (z.B. Edit1, Memo1 ...)

[dedeur]

Hmm ich hab folgendes jetzt gemacht: :coder:

Code:

procedure TForm1.Button4Click(Sender: TObject);
var Datei : TextFile;

begin
    Assign(Datei, 'c:\Test2.txt');
    Append(Datei);
    if IOResult <> 0 then Reset(Datei);
    Writeln (Datei, Memo1.Text);
    CloseFile(Datei);
end;

bekomme aber immernoch den Fehler

[Fehler] Unit1.pas(60): Inkompatible Typen: 'TPersistent' und 'Text'

kann ich irgendwie nichts mit anfangen

[himitsu]

Ja, ein kleiner Fehler:

Code:

Assign[color=red]File[/color](Datei, 'c:\Test2.txt');

[dedeur]

Hab dank hast mir sehr geholfen :witch:

[ArmyMan]

Hallo allerseits

Hab mal ne frage...

Welche units braucht man für dieses programm?? also das in dem 'uses' teil.

Danke ArmyMan

[Matze]

Probier's mal mit System

[himitsu]

Ich weiß zwar nicht wieso, aber dafür wird wohl mindestens Forms, StdCtrls, Controls & Classes benötigt.

PS: wenn du mal wissen wilst, was du wirklich brauchst, dann lösch doch einfach mal eine Unit nach der Anderen aus dem Uses-Abschnitt und kompiliere nach jeder ... sobald der Kompiler mekert, wird die zuletzt gelöscht Unit wohl benötigt...