1:
2:
3:
4:

Name: xxx
Vorname: yyy
Straße: zzz
...					

1:

newfile := copy(oldfile,pos(length(oldfile)-17),pos(length(oldfile)-17));					

1:

function Pos(Substr: string; S: string): Integer;					

1:
2:
3:

In Delphi sucht Pos in dem String S nach dem Teil-String Substr. Die Parameter Substr und S sind String-Ausdrücke.

Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.					

1:

 newfile:= copy(oldfile, length(oldfile)-17, length(oldfile)-17);					

1:
2:
3:
4:
5:
6:
7:

 for i := 0 to index.Count - 1 do
  begin
    oldfile.Add(ExtractFileName(lsb_files.Items[i]));
    textpos := length(oldfile)#-17;
    newfile:= copy(oldfile,# textpos, textpos);
    edit1.Text := string(newfile);
  end;					

1:

edit1.Text := string(newfile);					

1:

edit1.Text := newfile;					

1:

 edit1.text:= newfile.strings[n];					

1:
2:
3:

oldfile.Add(ExtractFileName(lsb_files.Items[i]));
    textpos := length(oldfile.)-17;
    newfile:= copy(oldfile, textpos, textpos);					

1:
2:
3:

 oldfile.Add(ExtractFileName(lsb_files.Items[i]));
 textpos := length(oldfile.)-17;
 newfile:= copy(oldfile.strings[oldfile.count-1], textpos, textpos);