Скачать: CL | DM;

String   Найти похожие ветки 

← →
aaaaaaaaaaa   (2003-03-11 13:48) [0]

Мастера, подскажите!Считал из из текстового файла строку:

if opendialog1.execute then
begin
assignfile (F, opendialog1.filename);
reset (F);
while not eof (F) do
ReadLn (F,S);
Edit1.text:=S;

Вопрос:КАК в Edit2 СЧИТАТЬ ПЕРВЫЕ ДЕВЯТЬ СИМВОЛОВ, НЕ ТАК ПРИМИТИВНО КАК СДЕЛАНО НИЖЕ:
Edit2.text:= s[1]+s[2]+s[3]+s[4]+s[5]+s[6]+s[7]+s[8]+s[9];

СПАСИБО,всем кто поможет новичку!

---

← →
Anatoly Podgoretsky ©   (2003-03-11 13:50) [1]

Купить книжки по Паскалю

---

← →
icWasya ©   (2003-03-11 13:51) [2]

Edit2.text:= system.copy(s,1,9);

---

← →
Snap ©   (2003-03-11 13:59) [3]

Tvoi plus v tom chto ti ponomaesh chto eto primitivno. Molodec.

---

← →
k-man   (2003-03-11 15:13) [4]

Организуй цикл от 1 до n.
Конструкция типа
for i:=1 to n do
edit2.text := edit2.text + s[i];
В данном случае вместо n = 9.

---

← →
Palladin ©   (2003-03-11 15:47) [5]

> k-man (11.03.03 15:13)

мда... конечно это более высокий подход к данной проблеме...

---

← →
Андрей Сенченко ©   (2003-03-11 15:59) [6]

Palladin © (11.03.03 15:47)

Но зато решение !!! Можно еще так:

var
i : integer;

label 100;

begin
i = 0
100 :
begin
edit2.text := edit2.text + s[i];
i = i + 1;
if i < 11 goto 100
end;

---

← →
Palladin ©   (2003-03-11 16:25) [7]

:))) вот это уже изощренность... прямо экзотика :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c