Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.106 Beiträge
 
Delphi 11 Alexandria
 
#3
  Alt 2. Okt 2002, 11: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
  Mit Zitat antworten Zitat