AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi SQL Problem mit Interbase
Thema durchsuchen
Ansicht
Themen-Optionen

SQL Problem mit Interbase

Ein Thema von Touchdown · begonnen am 20. Nov 2003 · letzter Beitrag vom 20. Nov 2003
Antwort Antwort
Seite 2 von 2     12   
Touchdown

Registriert seit: 17. Feb 2003
227 Beiträge
 
#11

Re: SQL Problem mit Interbase

  Alt 20. Nov 2003, 12:53
@OLLI_T

Dein Vorschlag hat mich überzeugt, ich kenne zwar nicht viel von Stored Procedure und Co., aber ich denke ich kann es mir erarbeiten. Nebenbei erweitert es meinen Coder-Horizont

Vielen Dank, hast mir wirklich sehr geholfen!
function getallfornothing: TGoldesel;
begin
result := TGoldesel.create;
end;
  Mit Zitat antworten Zitat
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#12

Re: SQL Problem mit Interbase

  Alt 20. Nov 2003, 13:17
Hallo Touchdown,

eine Lösung hab ich noch: UDF (user defined functions):

Delphi-Quellcode:
function MYTRANSLATE(value, old, new: PChar): PChar; cdecl;
{
DECLARE EXTERNAL FUNCTION MyTranslate
CString(50), CString(50), CString(50)
RETURNS CString(50) FREE_IT
ENTRY_POINT 'Translate' MODULE_NAME 'MyUDF'
}

var
   sValue, sOld, sNew : String;
   i, posi : Integer;
begin
   Result := value;
   sValue := String(value);
   sOld := String(old);
   sNew := String(new);

   for i := 1 to length(sValue) do
   begin
      posi := Pos(sValue[i], sOld);
      if posi > 0 then
         sValue[i] := sNew[posi];
   end;
   StrPCopy(Result, sValue);
end;
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Touchdown

Registriert seit: 17. Feb 2003
227 Beiträge
 
#13

Re: SQL Problem mit Interbase

  Alt 20. Nov 2003, 13:55
Aller erste Sahne, eure Vorschläge.

Ich habe nur noch leicht Probleme diese Lösungen umzusetzen, aber ich bekomme es schon hin.

Lese mich gerade in verschieden Tutorials schlau und bin überrascht was ich bisher alles nicht wusste
function getallfornothing: TGoldesel;
begin
result := TGoldesel.create;
end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz