Discussion :

[laclac]

Bonjour,

Je cherche un moyen de faire le code ci dessous. il y a je pense plusieurs façon de le faire, et c'est pour cela que je me permet de vous demander pour connaitre la meilleur (ou si une function existe).

Comparer 2 string si ils sont identiques pour le même nombre de caractères.

Compare('valeur1','valeur1detest'); //Ok car les 6 1ere caractère sont identique

Compare('valeur','testsur la valeur');//pas ok car les 5 1ere caractères ne sont pas identique

[skywaukers]

Bonjour,

essaye avec la fonction Pos :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if pos( 'Valeur', MaChaine) = 1 then ...

@++
Dany

[mico2]

Regarde aussi du coté de

function CompareStr(const S1,S2:string):Integer;

[sjrd]

Plus rapide qu'un Pos et plus simple que refaire la comparaison caract par caract en asm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if 'valeur1' = Copy('valeur1detest', 1, Length('valeur1')) then

[Bloon]

ou bien une petite fonction avec des pointeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function commencentPareil(const s1, s2 : string) : boolean;
var
  p1, p2 : PChar;
begin
  p1 := PChar(s1);
  p2 := PChar(s2);
  // une (et une seule) des chaines est vide, on renvoie false
  if (p1^ = #0) xor (p2^ = #0) then
    result := false
  else
  begin
    while (p1^ <> #0) and (p2^ <> #0) and (p1^ = p2^) do
    begin
      inc(p1);
      inc(p2);
    end;
    result := (p1^ = #0) or (p2^ = #0);
  end;
end;

Bloon