Antworten

WebWork Magazin - Webseiten erstellen lassen, Online Medien, html

Reparatur-Forum | Elektro forum | Ersatzteilshop Haushalt und Elektronik

Homepage und Webhosting-Forum

Hardware, Grafikkarte, Prozessor, Lüfter, Festplatte, SSD, Netzteil, Speicher, Flash, USB, Sata, Betriebssystem, Windows 8, Windows 10, Mac, MAC OS, Linux, Debian, Ubunto, Suse, Zip, Outlook, Firefox, Thunderbird und sonstige Software

Forum » Computer & Co - Hardware und Software » Noch ein mal ein Delphi Problem » Antworten

Benutzername:
Passwort:	Passwort vergessen?
Inhalt der Nachricht:	Fett \| Kursiv \| Unterstrichen \| Link \| Bild \| Smiley \| Zitat \| Zentriert \| Quellcode\| Kleiner Text [quote][b]Marcus schrieb am 21.11.2003 17:36[/b] Meinte natürlich Shellexecute in der Unit Shellapi: [code] uses ShellApi; ... begin exeName:='{Hier der Name der Anwendung}'; param:='[{Hier die Parameter rein}]'; ShellExecute(Application.MainForm.Handle,NIL,PChar(exeName), PChar(Param),PChar(ExtractFilePath(exeName)),SW_SHOWNORMAL); [/code][/quote]
Optionen:	Emailbenachrichtigung bei Antworten

Die letzten 5 Postings in diesem Thema » Alle anzeigen

von Marcus

Ganz einfach:

1: 
2: 
3: 
4: 
5:

write(f,Edit1.Text);
write(f,'  ');
write(f,Edit2.Text);

also einfach write ohne das ln (ln = line).

von felux

Dann geh ich mal eine Stufe weiter: wenn ich 2 Edits habe, deren Text in die TXT-Datei schreiben will, möchte aberden Text der beiden Edits nicht hintereinander stehen haben, sondern z.B. 2 Leerzeichen dazwischen, wie bekomme ich das hin?

von Marcus

Geht selbstredend auch mit edits:

1: 
2: 
3: 
4: 
5: 
6:

assignfile(f,'datei.txt');
reset(f);
writeln(f,Edit1.Text);
closefile(f);

von felux

Geht das auslesen der TXT-Datei nur mit Memo oder auch mit Edits etc.?

von Marcus

Meinte natürlich Shellexecute in der Unit Shellapi:

1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9:

uses ShellApi;
...
begin
  exeName:='{Hier der Name der Anwendung}';
  param:='[{Hier die Parameter rein}]';
  ShellExecute(Application.MainForm.Handle,NIL,PChar(exeName),
             PChar(Param),PChar(ExtractFilePath(exeName)),SW_SHOWNORMAL);


Nutzungsbedingungen \| Impressum \| Datenschutz \| RSS	Nach oben