Autor |
Beitrag |
GTA-Place
![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. offtopic star](./graphics/ranks/star_offtopic_full.png)
![EE-Regisseur EE-Regisseur](graphics/ranks/regisseur.png)
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Do 30.12.04 17:37
Es gibt nicht zufällig ne Möglichkeit, dass Speichern und dann Öffnen der Textdatei zu umgehen (davon abgesehen, dass wenn ich die Textdatei öffne, nicht wirklich das richtige im Memo steht (in der Textdatei steht viel, viel mehr))
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31:
| procedure TForm1.Button2Click(Sender: TObject); type TCopyBuffer = array[0..4095] of Char; var Buffer: ^TCopyBuffer; Source, Dest: file; RetVal: Integer; begin New(Buffer);
try AssignFile(Source, 'C:\meinsong.mp3'); Reset(Source, 1);
AssignFile(Dest, 'C:\test.txt'); Rewrite(Dest, 1);
while (not Eof(Source)) do begin BlockRead(Source, Buffer^, SizeOf(Buffer^), RetVal); BlockWrite(Dest, Buffer^, RetVal); end;
CloseFile(Source); CloseFile(Dest);
Memo1.Lines.LoadFromFile('C:\test.txt'); finally Dispose(Buffer); end; end; |
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
Grendel
![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. half ontopic star](./graphics/ranks/star_onofftopic.png)
Beiträge: 443
Gentoo Linux, MacOS X, Win 2000
D5 Ent, D7 Ent, Lazarus, Anjuta, MonoDevelop
|
Verfasst: Do 30.12.04 17:48
GTA-Place hat folgendes geschrieben: | Es gibt nicht zufällig ne Möglichkeit, dass Speichern und dann Öffnen der Textdatei zu umgehen |
Du willst also erst den Inhalt der zukünftigen textdatei vollständig in einen String paken und diesen dann wegschreiben?! Richtig?
Also nicht erst Zeildatei anlegen und dann Zeile für Zeile wegschreiben.
Wenn ja dann nimm einfach ein TFileStream.
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| var FS: TFileStream; Inhalt: String; begin
... FS := TFileStream.Create('meinedatei.txt', fmCreate); FS.Write(PChar(Inhalt)^, Length(Inhalt)); FS.Free();
end; |
Wenn nicht, dann hab ich nicht verstanden was Du willst.
GTA-Place hat folgendes geschrieben: | (davon abgesehen, dass wenn ich die Textdatei öffne, nicht wirklich das richtige im Memo steht (in der Textdatei steht viel, viel mehr)) |
Da Du den Inhalt einer mp3 Datei wegschreibst wird das Textfile mit Sicherheit Zeichen enthalten, die das Memo nicht darstellen kann. (#0 - #30)
Bis neulich ...
|
|
GTA-Place ![Threadstarter Threadstarter](./graphics/viewtopic/threadstarter.png)
![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. offtopic star](./graphics/ranks/star_offtopic_full.png)
![EE-Regisseur EE-Regisseur](graphics/ranks/regisseur.png)
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Do 30.12.04 17:53
Ach ich habs mir grad anders überlegt, trotzdem Danke.
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
Tino
![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Tino hat insgesamt 91.0% On-Topic und 9.0% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png)
![Veteran Veteran](/graphics/ranks/veteran.png)
Beiträge: 9839
Erhaltene Danke: 45
Windows 8.1
Delphi XE4
|
Verfasst: Do 30.12.04 18:07
GTA-Place hat folgendes geschrieben: | Ach ich habs mir grad anders überlegt |
Und wie? Danke! ![;-)](images/smiles/icon_wink.gif)
|
|
Grendel
![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![Grendel hat insgesamt 79.5% On-Topic und 20.5% Off-Topic Beiträge geschrieben. half ontopic star](./graphics/ranks/star_onofftopic.png)
Beiträge: 443
Gentoo Linux, MacOS X, Win 2000
D5 Ent, D7 Ent, Lazarus, Anjuta, MonoDevelop
|
Verfasst: Do 30.12.04 18:30
Tino hat folgendes geschrieben: | GTA-Place hat folgendes geschrieben: | Ach ich habs mir grad anders überlegt |
Und wie? Danke! ![;-)](images/smiles/icon_wink.gif) |
Na, "anders" eben
Bis neulich ...
|
|
GTA-Place ![Threadstarter Threadstarter](./graphics/viewtopic/threadstarter.png)
![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. ontopic star](./graphics/ranks/star_ontopic_full.png) ![GTA-Place hat insgesamt 74.5% On-Topic und 25.5% Off-Topic Beiträge geschrieben. offtopic star](./graphics/ranks/star_offtopic_full.png)
![EE-Regisseur EE-Regisseur](graphics/ranks/regisseur.png)
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Do 30.12.04 18:51
Ich brauchs doch nicht im Memo.
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
|