no to po pierwsze wszystkim rpzedstawiam tamto co dusiłem wszystkim ale nikomu sie nie udało :) a mi się :> ale sie chwale =] //jakby coś to omincie ten punbkt i czytajcie moją prośbę!!!! :)
//XOXOXO
type tq3rmapvar = record
first,second,third : t3dpoint; //ble a t3dpoint to x,y,z : single :)
texture : string;
end;
//XOXOXO
function stringtoq3rmapvar(text : string) : tq3rmapvar;
var
lol : tq3rmapvar;
xxx : array[0..16] of string;
il2,i2 : integer;
s1: string;
begin
for il2:=0 to 16 do
begin
s1 := text;
for i2:=0 to il2 do
delete(s1,1,pos(' ',s1));
delete(s1,pos(' ',s1),100);
xxx[il2]:=s1;
end;
lol.first.x := strtofloat(xxx[0]);
lol.first.y := strtofloat(xxx[1]);
lol.first.z := strtofloat(xxx[2]);
lol.second.x := strtofloat(xxx[5]);
lol.second.y := strtofloat(xxx[6]);
lol.second.z := strtofloat(xxx[7]);
lol.third.x := strtofloat(xxx[10]);
lol.third.y := strtofloat(xxx[11]);
lol.third.z := strtofloat(xxx[12]);
lol.texture := xxx[14];
result := lol;
end;
otóż mam w memo1 takie pozycje jak np.
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
hhu duzo i ch troche :P
no i teraz chciałbym wyciagnac do memo2 wszystkie liniki, które się nie powtarzają czyli w tym rpzypadku:
===
C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\notex.jpg
C:\Stuff\Projekty\gl\endzajn\test\C:\STUFF\PROJEKTY\GL\ENDZAJN\unpk3\town_floor/floor_c02.jpg
no i zeby to tak wygladalo :>