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]

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

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