(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
2. Okt 2002, 12:03
Moin Kruemel,
Code:
[color=#000080]// Nur um die Typen zu klären[/color]
[b]var[/b]
iPos : integer;
sWork : [b]string[/b];
fsWork : TFileStream;
[b]begin[/b]
[color=#000080]// Komma gegen Punkt tauschen[/color]
iPos := pos(',',sWork);
[b]while[/b] iPos <> 0 [b]do[/b]
[b]begin[/b]
sWork[iPos] := '.';
iPos := pos(',',sWork);
[b]end[/b];
[color=#000080]// und die Zeile wegschreiben[/color]
fsWork.Write(sWork[1],Length(sWork));
[b]end[/b];
Wozu brauchst Du einen PChar?
[EDIT] @sakura: [/EDIT]
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|