datei einlesen, jedes wort in eigene zeile setzten, dat ausl

[silver-moon-2000]

Zitat von Molzer:

Delphi-Quellcode:

[...]
  case c of
  'A'..'Z', 'a'..'z', '0'..'9':Zeile + Zeile + f;
  else begin if length (zeile) >0 then writeln (g,zeile);
             zeile:=' ';
[...]

Delphi mag bei case keine strings, sondern nur ordinal-typen, also Zahlen.
In Deinem Fall kann man das aber relativ leicht umschreiben. Probier' es mal so (ungetestet):

Delphi-Quellcode:

[...]
var 
  c : Char;
  [...]
begin
  if c in ['A'..'Z', 'a'..'z', '0'..'9'] then
    zeile := zeile + f
  else
  begin
    if Length(zeile) > 0 then WriteLn(g, zeile);
    zeile := '';
  end;

[edt] c muss natürlich vom Typ char sein...aargh
hätte heute kürzer schlafen sollen
[edt2] whopps, da habe ich wohl einige Posts verschlafen während meines edits, sorry fürs nachträgliche editieren