убавлять сиволы

[beZ_probleM]

если g[i] ето у тебя строка параметров типа етой "имя/номер\страна" то твой ответ вот :

k:=0;
name[i]:='';
while getChar(g[i],k)<>'/' do     // пока і не равно "/"  
   begin  
      name[i]:=name[i]+getChar(g[i],k);  
      k:=k+1;  
   end; 


или через copy :

k:=0;
while getChar(g[i],k)<>'/' do
    k:=k+1;
name[i]:=copy(g[i],0,k-1); 


[Piligrim]

а чем вас не устраивает тогда

name[i] := Copy(g[i], 0, Pos(g[i], "/")); 


[beZ_probleM]

помоему там минус единицу ещё нужно

name[i] := Copy(g[i], 0, Pos(g[i], "/")-1); 


Для следующего слова

:=Copy(g[i], Pos(g[i], "/")+1, Pos(g[i], "\")-1); 


и для последнего

:=Copy(g[i], Pos(g[i], "\")+1, length(g[i])-1); 


[temned]

и на обед: а как потом мона будет редактировать? Это же не целая строка, а где-то середина? Например страну номер изменился?

[Piligrim]

beZ_probleM, не внимательно читал справку. Copy и так вырезает на одну меньше
TEMNED, а по связнее можно? Редактировать исходную строку? Вырезаешь начало и объединяешь с новой страной.

[beZ_probleM]

g[i]:=name[i]+'/'+номер+'\'+страна; 


если эти строки(g[i] - эти) нужно брать из хранилища записей и туда же их возвращать то лучше удалять ето хранилище и записывать все строки в него заново=)
удачи

[beZ_probleM]

2 pilgrim
читал...
может ты нащёт pos а не copy говоришь?
потомучто copy :

справка:
function copy(str1: string; begin, end: integer): string;
Возвращает подстроку данной строки, начиная с позиции 'begin' и заканчивая позицией 'end'-1. Например, copy('MIDletPascal', 2, 5) возвратит 'Dle'.

а вот с роs сам не пойму шо она возращает))) -1 или простО)) от которого нужно отнимаТЬ))

[Piligrim]

Pos возвращает позицию символа в строке. Позиция считается с нуля. А Copy вырезает по 'end-1', но тоже с нуля. И получается, что указав в Copy позицию '/' в результирующей строке мы его обрежем.
А -1 Pos возвращает если не нашла.

[ViNT]

В подобных случаях я делаю примерно так:
создаю тип данных, в данном случае

type
 rec=record
 name:string;
 num:integer;
 country:string;
end; 


дальше создаю две функции, типа
function read(s:string):rec;
function write(r:rec):string;

функция read разбивает строку на составляющие и возвращает уже
запись, содержащую нужные поля;
функция write наоборот, формирует строку на основе записи.
Дальше все просто - читаем строку, получаем из неё данные с помощью read, изменяем или просто читаем нужные поля, снова собираем строку на основе измененной записи с помощью write и записываем в rms.