Как правильно скопировать строки

← →
Andrew © (2008-10-11 19:27) [0]

Добрый вечер. Совсем недавно взялся изучать Delphi, поэтому не судите строго)). Вопрос следующий:
Есть текстовый файл вида -

bla-bla-bla12:12312341
bla-bla-bla13:12312342
bla-bla-bla14:12312343...

Нужно скопировать в Memo все строки до символа ":". Делаю так:

var c,d:integer; strg,fd:string; begin str:=tstringlist.create; if opendialog1.Execute then str.loadfromfile(opendialog1.FileName); for c := 0 to str.Count-1 do strg:=str.Strings[c]; d:=pos(":",strg); fd:=copy(strg,0,d); memo1.Lines.add(fd);

В итоге в Memo только последняя строка. Что неправильно?

← →
Palladin © (2008-10-11 19:34) [1]

все

изучаем основы Паскаля вообще программирования до полного просветления.
циклы.... условия... и операторные скобки

← →
Правильный$Вася (2008-10-11 19:34) [2]

> for c := 0 to str.Count-1 do strg:=str.Strings[c]; d:=pos(":
> ",strg); fd:=copy(strg,0,d); memo1.Lines.add(fd);

потому что все это добро должно выполняться в цикле, т.е. хаключаться в операторные скобки begin-end
а у тебя в цикле просто перебираются строки до последней, а потом уже с ней манипуляции
кстати, отладчик тебе бы это все сам показал, если бы ты им воспользовался

Спасибо большое! Дошло с вашей помощью. Второй день изучаю Delphi, отладчик - это для меня рановато, наверное. Но я поучусь им пользоваться. Всем еще раз спасибо...

Как правильно скопировать строки Найти похожие ветки