Мне нужно все строки текстовгог файла слить в одну. Я делаю:
while not eof(f) do
begin
readln(f,s);
s1:=s1+s;
richedit1.Lines.Add(s1);
Оно выдает весь процесс записи. Т.е. сначала одну строку, потом две потом 3 и так прибавляя по одной строке.
внимание,Ворос!
Что делать?

Код

Function ReadFileAsString(FileName:string; LeaveStringSeparators:boolean=True):string; begin  With TStringList.create do    try      LoadFromFile(FileName);      Result:=text;    finally      Free;    end;  if not LeaveStringSeparators then    begin       Result:=StringReplace(Result, #13, '', [rfReplaceAll]);       Result:=StringReplace(Result, #10, '', [rfReplaceAll]);    end; end;

Ой... Лучше без "тяжелой артиллерии" в виде TStringList. Он ведь при чтении из файла сначала добросовестно распарсит все CRLF и уберет их. Потом при GetText снова добросовестно приклеит CRLF к каждой строчке... IMHO, проще и шустрее было бы примерно так:

Код

Function ReadFileAsString(FileName:string; LeaveStringSeparators:boolean=True): string; begin  With TFileStream.Create(FileName, fmOpenRead) do try    SetLength(Result, Size);    if Result <> '' then Read(Result[1], Size);  finally    Free;  end;  if not LeaveStringSeparators then begin    Result:=StringReplace(Result, #13, '', [rfReplaceAll]);    Result:=StringReplace(Result, #10, '', [rfReplaceAll]);  end; end;

А может так:

Код

while not eof(f) do begin readln(f,s); s1:=s1+s; end richedit1.Lines.Add(s1);

Это сообщение отредактировал(а) Paradox - 18.11.2003, 07:11

Цитата

А может так:CODE  while not eof(f) do begin readln(f,s); s1:=s1+s; end richedit1.Lines.Add(s1);

Это же то что я в начале сказал, это не получилась, а вункция Vit`a работает. Спасибо!

И ещё вопрос, хочу в этой строке убрать все пробелы, пишу:
for i:=0 to length(s) do
s1:= copy (s,1,i);
while s1 = ' ' do
delete (s,1,i);

Нифига!
как?

Для пробелов вот

Код

i := 1; S1 := ''; while i<= length(s)do begin  if S[i]<> ' ' then S1 := S1 + S[i];  Inc(i); end;

тоже подойдёт для выкидывания CRLF (S[i] <> #13)

Цитата(Georg4 @ 18.11.2003, 17:30)

Цитата А может так:CODE  while not eof(f) do begin readln(f,s); s1:=s1+s; end richedit1.Lines.Add(s1); Это же то что я в начале сказал, это не получилась,

Посмотри еще раз внимательно и найди одно отличие:

Код

while not eof(f) do begin  readln(f,s);  s1:=s1+s;  richedit1.Lines.Add(s1);

Код

while not eof(f) do begin  readln(f,s);  s1:=s1+s; end richedit1.Lines.Add(s1);

Цитата(Georg4 @ 18.11.2003, 08:30)

пробелы, пишу: for i:=0 to length(s) do s1:= copy (s,1,i); while s1 = ' ' do delete (s,1,i); // - Ошибка здесь, надо delete (s1,1,i); Нифига! как?

Но так лучше:

Код

s1:=StringReplace(s,' ','',[rfReplaceAll]);

Цитата(Dmitry @ 17.11.2003, 18:53)

Ой... Лучше без "тяжелой артиллерии" в виде TStringList.

Спорить не буду, тем более что наиболее оптимальным было бы просто считывание файла в буффер, просто мне так удобнее, я привык и часто использую TStringList. Хотя конечно могу привести ещё штук 10 совершенно различных способов чтения файлов...

Цитата(Paradox @ 17.11.2003, 22:10)

А может так: Код while not eof(f) do begin readln(f,s); s1:=s1+s; end richedit1.Lines.Add(s1);

По поводу этого и других вариантов с ReadLn - имеют ограничеснное применение для очень больших или очень маленьких файлов. Для файлов размером от 1 кб до 20 мегабайт прочитывание всего файла в поток будет работать намного быстрее и эффективнее.

[offtop]
TStrings rules! Наверно, мой самый любимый инструмент.
[/offtop]

А если в одну строчку:

Код

RichEdit1.Lines.LoadFromFile(FileName);

Только ScrollBars должно быть ssBoth (для красоты)

Цитата

Только ScrollBars должно быть ssBoth (для красоты)

Обязательно учту!!:)
Теперь я делаю чтоб провыеряло являются ли последние 2(или1) символа цифрами, и если нет то убрать оба(или тот кторый не цифра)

Простые задачи должны иметь простые решения!

Определяем строковую переменную (побольше)
Определяем символьную переменную (под 1-н символ)

организуем прорамму
...
Читаем символ из файла
Цикл пока - while (h = #10) OR (h = #13) then читаем сивол;
...
Т.е. #10, #13 обозначают конец строки.

Сейчас точно не помню. Загони в паскаль и на пошаговом троссировщике посмотри.

И все! Ни каких танцев с бубном! Просто 1-н условный цикл.

Простые задачи должны иметь простые решения!

Определяем строковую переменную (побольше) - s
Определяем символьную переменную (под 1-н символ) - h

организуем прорамму
...
Читаем символ из файла
Цикл пока - while (h = #10) OR (h = #13) then читаем сивол;
s:= s + h;
Тут h уже точно не конец строки.
...
загоняем s в файл.

Т.е. #10, #13 обозначают конец строки.

Сейчас точно не помню. Загони в паскаль и на пошаговом троссировщике посмотри.

И все! Ни каких танцев с бубном! Просто 1-н условный цикл.

И сколько по твоему это будет работать с файлом килобайт на сорок

ДА, посимвольно рабоатать очень долго. Со строками гораздо быстрее и проще - TStrings рулит

За сколько партия прикажет - за столько и закончит.
Зато предельно просто и предельно надежно.