Problème de transfert entre un tableau et un TStringList
Bonjour
J'ai un petit soucis concernant la manipulation de tableau.
Le but est de pouvoir inserer des lignes dans mon tableau (TabPRG) en fonction du contenu de (TabPIPC).
Pour se faire, j'utilise un TStringList (temporaire)
Le problème est que lorsque je veux transferer TabPRG dans mon TStringList à l'aide de la methode .add, rien ne se passe.....????
voici mon code...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
function Tediteur.TriPIPC(TabPrg :array of string; TabPiPc :array of string): TStringArray;
var
TempString :TStringList; // TStringList temporaire pour faire le classement
Nb :integer; // Indicateur de comptage et de position
PosLigne :integer; // Renvoie le numero de lignes du PI ou PC
ValCode :integer; // sert d'indicateur d'erreur si la chaine n'est pas un entier
ajeter :integer;
begin
TempString := TstringList.Create;
For Nb := 0 to length(TabPrg)-1 do TempString.Add(TabPrg[Nb]); // on Recopie le PRG dans le TStringList Temporaire
For Nb := 0 to length(TabPiPc)-1 do // on scrute le tableau PIPC
Begin
TabPiPc[Nb] := trim(TabPiPc[Nb]); // on supprime tous les caractères de controle de la ligne
Val(TabPiPc[Nb], PosLigne, ValCode); // on convertit la chaine en sa valeur entiere
if ValCode = 0 then // si c'en est une ValCode = 0
begin
TempString.Insert(PosLigne-65,TabPiPc[Nb+1]);
end;
end;
end; |
