Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#26

Re: Textdatei einlesen u. drucken

  Alt 4. Apr 2006, 05:36
Kosmisch, dann gabs in D% StringReplace auch noch nicht . Dann implementieren wir das halt schnell ;-(

Delphi-Quellcode:
function StringReplace( str: string; alt: Char; neu: Char);
var
  i: Integer;
begin
  for i := 1 to Length( str) do
  begin
    if str[i] = alt then str[i] := neu;
  end;
  result := str;
end;
Jetzt mußt du nur den letezten paramter weglassen. Also:

sl.CommaText := StringReplace( s, '|', ',');
Markus Kinzler
  Mit Zitat antworten Zitat