Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Всё таже работа с файлами...

Страницы: < 1 2
Ruffian © (2006-11-14 22:29:00)
Извеняюсь что опять пишу, но вот трабла в этом коде..

скомпоновав все коды вот что получил...

procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStrings;
x:integer;
begin
SL := TStringList.Create;
x:=0;
try
while x=0 do
begin
SL.LoadFromFile(Edit1.text); // грузим строку из файла
SL.Delimiter := ','; // числа в строке рзделены запятыми
SL.DelimitedText := SL.Text; // разбиваем строку на отдельные числа
SL[5] := IntToStr(StrToInt(Trim(SL[2])) * 60); // работаем с 6-м числом (индексация от 0)
// тут работаем с другими числами
SL.Text := SL.DelimitedText; // чтобы были запятые в результирующем файле
Readln; // если достигнут конец строки
// в файле, то переход на следующую строку}
SL.SaveToFile('c:\2.txt'); // сохраняем результат
end;
finally
FreeAndNil(SL);
end;
end;

Как кто думает, в чём ошибка/ошибки???
заранее спасибо!

Anatoly Podgoretsky (2006-11-14 22:49:00) [21]
Да очередной бред просто написан

Anatoly Podgoretsky (2006-11-14 22:48:00) [22]
Ты вроде уже этот вопрос задавал?

Percent (2006-11-14 22:47:00) [23]
Как кто думает, в чём ошибка/ошибки???

Какие ошибка/ошибки?
Что оно не так делает?
Ты мысль формулировать умеешь?

Какая-то мешанина. Ты хоть понимаешь, что тебе делать надо?

Зачем тебе этот цикл: while x=0 do?
Что это такое: Readln;

И что, вообще, это все делать должно?

Ruffian (2006-11-14 22:38:00) [24]
ммм, напёк на неправильный вопрос понял, почиткаю обязательно на досуге, а что енправильно в коде не ясно объяснил, напиши поподробней плиз..

Desdechado (2006-11-14 22:33:00) [25]
SL.DelimitedText := SL.Text;

а еще http://www.ln.ua/~openxs/articles/smart-questions-ru.html

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »