Delphi - Nach vorhandenen String suchen in Array

[paule22]

Hallo Leute,

ich bastle gerade an eine MySQL komponente und sitze jetzt kopfüber über ein Problem, welches ich pardu nicht hingebacken bekomme.

Folgendes:

mit PMYSQL_RES(Fres).fields[ array ].table soll der Tabellenname eines Feldes ermittelt werden

so jetzt hatt man mit "PMYSQL_RES(Fres).fields[0].table" den Tabellennamen für das erste Tabellenfeld.

Aber:

SQL Anweisungen (Results) können ja geschachtelt sein - also so mit INNER JOIN ...

jetzt muss doch eine Funktion her, die einen Array abgraßt und füllt, ob das entsprechende Feld bereits mit den Tabellennamen makiert ist (sonst wurde dann, wenn man TableArray[0] bis TableArray[High} evtl. mehrmals die gleiche referrenz haben und unnötig viele "Appends" oder "deletes" machen ...

so habt ihrs verstanden ???

ich habe hier schonmal kurz ein paar zeilen code:

procedure TMySQLDataSet.Append; 

var 

  ftable, s, s_sql: String; 

  apos,i,c: Integer; 

  farr: array of Integer; 

  sarr: array of String; 

begin 

  s := ''; 

  s_sql := Owner.SQL.Text; 


  if Owner.Connection.Session.Active = false then exit; 


  GotoRecord(RecCount); 


  ftable  := Owner.Fres.fields[0].table; 

  farr[0] := 0; 

  sarr[0] := ftable; 

  for i := 0 to FieldCount-1 do 

  begin 

    if Owner.Fres.fields[i].table <> ftable then 

    begin 

      apos := apos + 1; 

      farr[apos] := i; 


      for c := 0 to High(sarr) do 

      begin 


      end; 

      ftable := Owner.Fres.fields[i].table; 

    end; 

  end; 


  Owner.Fres.fields[0].table; 

  s := 'INSERT INTO ' + Owner.Fres ... + ' ('; 

[/PHP]

es geht mir jetzt nicht um die funktionen die ich in diesen snippet verwendet habe, vielmehr um die suchfunktion und das auffüllen des arrays ...

vielen dank für eure hilfe ...

[geloescht_JesterDay]

Es gibt nur eine Methode um in einem Array of String nach einem String zu suchen...

var i: Integer;


for i:= 0 to High(Array) do

begin

  if Array[i] = SuchString then

  begin

    ShowMessage('Gefunden');

    break;

  end;

end;

Was anderes wäre mir jetzt neu... (ne, hab auch gesucht und nichts anderes gefunden). Hab es bisher immer so gemacht bzw. entsprechend angepasst wenn ich einen String nur anhängen wollte wenn noch nicht vorhanden (kam schon öfter vor).

[paule22]

danke dir erstmal ...