Mehrzeiligen Text zuweisen incl. '

[Delphi.Narium]

Tool schreiben:

Ein Memo, in das Du das getestete SQL per Copy&Paste reinpappst.
Zweites Memo für die Ausgabe.
Ein Edit für den Namen der Query im Quelltext.
Eine Button für 'ne Routine (sinngemäß) dieser Art:

Delphi-Quellcode:

Memo1.Lines.Clear;
Memo1.PasteFromClipboard;
Memo2.Lines.Clear;
Memo2.Lines.Add(Format('%s.SQL.Clear;',[edQueryName.Text]));
for i := 0 to Memo1.Lines.Count - 1 do Memo2.Lines.Add(Format('%s.SQL.Add(%s);',[edQueryName.Text,QuotedStr(Memo1.Lines[i])]));
Memo2.SelectAll;
Memo2.CopyToClipboard;

Ergebnis per Copy&Paste an die passende Stelle im Quelltext einfügen.

Hab' sowas vor Jahren mal für 'nen ähnlichen "Bedarf" in 'ner vollkommen anderen Entwicklungsumgebung benötigt. Hat wunderbar geklappt und sehr viel Schreiberei erspart.

[haentschman]

Zitat:

Ein Memo, in das Du das getestete SQL per Copy&Paste reinpappst.

...es geht eher um das testen des SQL in dem DB Editor, was im QT schon mit .Add( steht...quasi umgekehrt.

[Delphi.Narium]

Ja und?

Routine umdrehen:

Alles bis zum ersten ' weg.
Alles bis zum letzten ' weg.
Doppelte '' durch ' ersetzen?

Macht also genau einen zweiten Button aus.

Delphi-Quellcode:

var
  s : String;
  i : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.PasteFromClipboard;
  Memo2.Lines.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do begin
    s := Memo1.Lines[i];
    s := Copy(s,Pos('''',s) + 1, Length(s);
    s := ReverseString(s);
    s := Copy(s,1,Pos('''',s) + 1,Length(s)); 
    s := ReverseString(s);
    s := AnsiReplaceText(s,'''''','''');
    Memo2.Lines.Add(s);
  end;
  Memo2.SelectAll;
  Memo2.CopyToClipboard; 
end;

[Rollo62]

Zitat von Delphi.Narium:

Tool schreiben:

+1
Gemäß: Eat your own dogfood ...
Mache sowas für SVG.

[Rollo62]

Ich müsste mir mal Allister Chrities neues Buch anschaffen,
womöglich gibt es auch Möglichkeiten in der IDE kleine Scripte o.ä. auszuführen, bei Custom Hotkeys ?

[freimatz]

Wie dem auch sei halte ich getrennte Dateien (also z.B. in Ressourcen) für besser. In einer Datei mehrere Sprachen zu mischen ist voll unclean.

[Rollo62]

Zitat von freimatz:

Wie dem auch sei halte ich getrennte Dateien (also z.B. in Ressourcen) für besser. In einer Datei mehrere Sprachen zu mischen ist voll unclean.