Hallo Andreas,
hier ein wenig Delphicode:
<pre>
...
var
il_RowNumber: integer;
sl: TStringList;
sl_temp: string;
sl_Vorname: string;
sl_Nachname: string;
begin
sl := TStringList.Create;
try
sl.LoadFromFile('c:\sltest.txt');
il_RowNumber := 0;
while il_RowNumber < sl.Count do
begin
sl_temp := sl[il_RowNumber];
sl_Vorname := TrimRight(copy(sl_temp, 1, 15));
sl_Nachname := TrimRight(copy(sl_temp, 16, 15));
...
inc(il_RowNumber);
end;
finally
sl.Free;
end;
end;
</pre>
Gruß
Torste
hier ein wenig Delphicode:
<pre>
...
var
il_RowNumber: integer;
sl: TStringList;
sl_temp: string;
sl_Vorname: string;
sl_Nachname: string;
begin
sl := TStringList.Create;
try
sl.LoadFromFile('c:\sltest.txt');
il_RowNumber := 0;
while il_RowNumber < sl.Count do
begin
sl_temp := sl[il_RowNumber];
sl_Vorname := TrimRight(copy(sl_temp, 1, 15));
sl_Nachname := TrimRight(copy(sl_temp, 16, 15));
...
inc(il_RowNumber);
end;
finally
sl.Free;
end;
end;
</pre>
Gruß
Torste
Comment