Ich brauch einen leeren String

luckyluke84 · Beiträge: 54 WinXP Lazarus

unit Dateizugriff;

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

interface
type TDatei = File of String[10];

implementation

procedure
var s : string;
    my_file : TDatei;
begin
   assign(my_file,'c:  est.txt');
   rewrite(my_file);
   s := 'versuch';
   write(my_file, s);
   close(my_file);
end;

Wenn ich dieses Prog. ausführ und dannach die
Datei "test.txt" öffne dann steht da folgendes
drin : "versuch" Das ist unschön. Eigentlich
sollte da "versuch___" (3 Leerzeichen am Ende) drinstehen.
Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.
Moderiert von Peter Lustig: Topic aus Dateizugriff verschoben am Sun 01.08.2004 um 23:31

Alstar · Beiträge: 827

Prüf doch mit Length() die Länge des Strings und füge bei Bedarf Leerzeichen ein.

Alstar

MasterT · Verfasst: So 01.08.04 23:55

Füg doch einfach hinter "versuch" 3 Leerzeichen ein. Leerzeichen ist glaube ich ASCII 32. Dann haste die auch in deiner Datei stehen.

Gruß

MasterT

DaRkFiRe · Beiträge: 526 WinXP Home & Professional C, C++, Delphi

markieren

Delphi-Quelltext

1:
2:
3:

s:='versuch';
//Padding
s:=s+StringOfChar(#32,max(0,10-LENGTH(s)));

_________________
Lang ist der Weg durch Lehren - kurz und wirksam durch Beispiele! Seneca

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme